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®[T@iBAL 


Nurnero 0, 1, 2-3 e 4*5 


E passato un anno dall'uscita dell'edizione zero di 
POCKET PET, . ■ 

A quel tempo erano stati promessi sei edizioni della 
rivista, e tante ne hanno visto la luce nell’arco 
del 1981, 

Quali le promesse? Quali le propettìve per il 1982? 

i 

POCKET PET, come il computer a cui e’ dedicato* si 
espande e migliora sempre dì piu 1 con il passare del 
tempoj pur mantenendo le medesime, caratteristiche. 

Il 1982 vedrà f delle pagine sempre pìu t interessanti 
per i possessori di un Commodore; articoli dedicati 
all 1 informazione, ai FET-CBM, al VIC2G e a tutti i 
prodotti Harden-Coitiraodore. 

Come e r suo uso e costume* la Harden S.p.A, proprio 
per meglio servire tutti i possessori presenti), 
passati e futuri di un Commodore, a partire dal 
prossimo anno altre sorprese inerenti al suo organo' 
ufficiale; POCKET PET, 


E per concludere; 


Fra le pagine di questo numero doppio di fine 
d’anno) proprio per augurare un buon Natale a la 
redazione e la tiarden S,p,A* offre a tutti ì lettori 
un alberello un po' originale. E. 


buon 


and 

j- r " 


i/rmovo 
^—- 
















di Altiiindf» da Simon® 


SEM3BLISE 

PER 

TUTTI 


Da «uesta puntata anche se coma detto 
precedentemente continuerò -1 a riportare 
: programmi in LM da inserire mediante 
i ì NON ITOR TIM t ras or i ve re -3 lì sta ss i 
scritti pero" - in ASSEMBLER anche per 
4 m # É onorare 11 nome de 1 la presente 
rubrica. 


T u tt i i programm i in R sse m b 1 er 

terminano con un messali io in raverse 
"PROGRAMMA SIBTATTICAMENTE CORRETTO" 

che indica t avvenuto rispetto.* da 
parte nostra ? delle norme da seguire 
nella stesura del programma. 


Come i 1 lettore aura"’ i 1 modo di 
accorgersi, i programmi Assembler sono 
molto Piu" 1 chiari e comprensibili e 
consentono, perfino a chi non possiede 
i 1 ■ rr-n ii r amma BSS Eh E LE E > di sor i v ere i n 
LM mediante il comando EGLE x,y dato 
ohe sono indicati in decidale sia ali 
i hffi ri zzì che i contenut i dea l i 
indirizzi stessi. 


I programmi che Presento girano 
indifferentemente su PET vecchie., nuove 
e nuovissime PGM CBRGIC 4>, ctuindi per 
i mede Ili 3032 trasformati, CBN 4G32 e 
CBM 3032. 


Vediamo brevemente come si ledono i 
program mi s or i 11 i in R ssemb 1 er ; i ri 
questa puntata ve ■ rie sono tre* 
Innanzitutto, ad ognuno di essi si ruo^ 
assegnare un nome della lunghezza 
massima di 75 caratteri che compare noi 
in re ver se in testa all" - editine del 
programma stesso. 


Seguono le Lsbels che Possiedono un 
significato particolàre nel corso del 
Programma e che altro non -sono se non 
nomi di fantasia da noi assegnati a 
punti del programma che consentono di 
rintracciare faci Unente alcuni 

indirizzi o parti del programma stesso. 




necessario 
indirizzi 
Labe Is possiamo 
Programma senza 
calco tare -epIì 
tra gli altri, 


tome si può"' notare non e 
indi oar a -hu ss i mai g 1 ì 
assoluti mediante le 
individuare punti di 
rendere tempo a 
indirizzi; e' il caso 
del ENE +LOOP della figura 2 o del JKS 
TRASFERISCI della figura -3 grazie ai 
nivali il programma ASSEMBLER ci allevia 
della fatica di individuare gli 
■indirizzi o di calcolane il 11 sa Ito" o 
di dover riscrivere.tutto li programma 
LM nel caso decidessimo di inserire una 
nuova istruzione. Si sa infatti che, in 
^uest-u Itimo caso, dopo \ y inserìmento 
della nuova istruzione e 1 " oiuasi sempre 
necessario ricalco lare molti indirizzi 
di istruzioni a due c tre bytes ed 
alcuni ìndirizzamneti indiretti. 


Consideriamo per esempio il programma, 
di figura £■ quando il programma 
ASSEMBLER incentra il comando-' 


28372 - BLOCCO 


automati carne nta assegna. alla Label 
BLOCCO i1 valore £3372 con il vantaggio 
che -quando in seguito vorremo indicare 
tale indirizzo, sera.-" sufficiente 
chiamarlo con i 1 nome BLOCCO anzi che 
con il suo indirizzo esadecimale o 
decimale Cvedi appunto istruzione 
LBRtf ; BLOCCO). 









Un altro significatilo esempio e - " dato 
dal BNE +LQGP chOj noi caso in cui il 
r i su Hate de 11 a ore ras i one i n '-tu es t i one 
non sia usuale e. zero* fa continuare ì l 
rrosrajtìrna dal Punto indicato 
precedentemente con il nome di fantasia 
LOOP, 


essere uti Uzzato per inserire dei 
calori senza modificare minimamente i l 
cc n tenut□ dell"accunu1ato re, 


Vediamo alcune istruzioni che lo 
interessano: 


Come si nota non e - ' stato necessario 
calco lare L'entità - del salto ma. e ' 
s t at o sufficit nt e tr as or i ver e il no me 
LOOP nel punto in cui desideriamo che 
il salto aweriya r a rintracciare tale 
sunto ed a calcolare il salto ci pensa 
i 1 programma ASSEMBLER -aria lesamente 
,come il BASIC calcola il numero di 
ris*he e di istruzioni da saltare otuando 
incontra i comandi di GGTu o GOSUB. 


Tra ali altri vantassi/ vedi figura 3/ 
e , K;css i b ile inserì re de i coroni eri t i che/ 
analogamente ai REM noti del BASIC, 
ai ut ari o a re nd er e p i u J " con 1 ri ens i b i 1 e il 
pr0:yramma stesso. 

Ha notare ancora che se _noi essasra 

mo la Label PARTENZA alla locazione 
7151/ tale valore/ Per c omo dita"> viere 
tra.do11o in esadeoima 1 e e trescoi1t >o in 
alto al fianco della Label,' 


An cera con istruzione del tipo 
INC ; INIZPRlM+i e 1 " possibile e lat-orare 
ir 1 e 1 caso specifico’ inorementare> il 
contenuto di locazione di memoria non 
esrressamente indicate.- ma ohe "sono 
distanti" alcuni bytes day li indirizzi 
dalle Labe l .specificate. 


Nel caso dì INC j INIZPRIM+1 verrà" 
i n d i oat 0 ■ 1 1 oc ritenuto della 1 ocaz i one, 
s u co ess i va a '^ue Ila i nd i o at a 
precedentemente con INIZPRIM/ 

aria lesamente sono accettate istruzioni 
del tiro: INC ELQCCO+4' a- rintracciare 
i I aiusto indirizzo , ci pensa 

naturalmente 'V ASSEMBLER. 


Il lettore ohe abbia seguito le due 
puntate precedenti e^ in arado di 
car i c ere 1 accumu latore con il 

contenute di una qualsiasi locazione di 
memoria- 


studi eremo *tuesta volta un nuovo modo 
di indicare Findirizzo ohe oi 
interessa uti lizzando i1 registro 
indice X. 

Tale registro ad ’ 9 bit e' contenuto 
al Finterno della CPU stessa e può'' 


LBX tt Ccdice orer ativo 10# C . > : A2, 
LEtt# #2 <0.P. A2 u2)- 

Trascrive in X il valore 2, 

LBX, ,2 <0-Fl Ab 0£>■ Carica in X 
il contenuto della locazione 
2 della pagina zero. 

IHX OD, F, ES)- Incrementa il 
valore corrente di X. E - " da 
r icordare che se ad esempio 
il valore corrisponde a Al 
questo passa, ad A2.. mentre 
~f~ a - ' - PF questo passa a 09. 

BEN 0 , P, C-A.J ■ Come per INX 

ohe in creme irta j BEX esegue 
V .azione di dee re montare il 
valore dì X, 

'■• Ci.P . AA) ■ Trasferisce il 
v a lo re co r r eri te dell sc¬ 
evro u 1 at ore nel r -e g i 5 1 r-o X . 

INA CQ*F. 3h> Trasferisce il 
v a l o re di X nell ■' ac - 

cum lì latore. 


li a -:^u està prima p ari o r am 1 ca s i nota 
subito che un vantaggio e - " 
r ar prese nt at o da. IL' ave re ■ i n un 0 er t o 
^enso. di un secondo .accumulatore su 
cui ijP arare senza disturbare fi primo, 
al tìtìjaìe siamo abiti-fati fino ad ora. 


Ce ,J da dire che esiste un secondo 
vantaggio derivante dal Poter 
utilizzare il 'registro X come 
riferimento per la ricerca di un 
indirizzo- Consideriamo/ infatti/ la 
nuova istruzione LBAX il cui codice 
op er at i v o e ■" Eli / < i st r uz ì one a tre 
bytès). 


LBAX*;$3090 
yE 9C 89 in LM 


Questa istruzione carica ir 
accumulatore i l contenuto de l la 
locazione il cui indirizzo e* 1 
rappresentato dai due by.tes.che seguono 
3L <oioe r '' 39 SO> ai ciualì e' 1 sommato i 1 
valore corrente di X. 






LBX# #2 LN : A 2 Q 2 
LDfitt ;33000 LM- BB 00 80 


In accumulatore sera' depositato 
il valore della locazione il cui 
i n dirizzo a "' r ■■ a** p r es en tato dalla 
somma di 9000+02 j vale "tuindi a 
dire 00O2* Otterremo in 
detinitiva il medesimo effetto di 
LEfi ,$3002, 


dna istruzione analoga e"' -anche 
i 1 "deposito" di un dato in un 
indirizzo indicizzato come 
ne 11' e s e mi? i o p r ec e dente. 


SThX JfB000 Q„P. yll 00 §0 


In effetti il medesimo risultato 
ottenibile utilizzando le 
istruzioni che già' conosciamo! 
Vediamo allora la differenza tra 
i due metodi. 


Esercizio; Trasorivere i 

contenuti di un blocco di memoria 
da S3C0 _a 83ES (decimale r da 
33748 a 33768 * che corrisponde 
es attame nte al l'u Iti ma r i ga di 
schermo) a un nuovo blocco da 
S0S0 a h« 28, che corrisponde 
proprio alla prim^T risa di 

schermo. 

Esaminiamo in un primo momento le 
schema relative al metodo note 
Cfigura 1)- 

La Prima Parte (da 833fi a 834E> 
co siitu ì sce la necesseria 

inizia lizzasiore del J programma 
(vedremo Piu' avanti i 1 perche'). 
L'istruzione che si trova in 0-34F 
carica la prima locazione e la 
d ero sita all'inizio del secondò 
blocco; successiverni ente si 
incrementano i bytes mene 
significativi mediante . le 
istruzioni E£ xx xx e si j esamina 
i 1 contenuto di X per sapere se 
si e' giunti al valore impostato 
23 (decimale 40), 

L'inizi al izzazione e' dovuta al 
fàtto che se noi vogliamo 
eseguire una secinda volta senza 
ripristinare i valori iniziali 
<8000 è 83CÈO gli indirizzi dei 
due blocchi si troveranno al 
punte in cui sono stati lasciati 
doro la Prima esecuzione, ' cioè' a 
8028 e 83E8; non scio, ma il 
confronto (C9 28) 


^BLOCCO 
fSCHERMO 
r LOOF 
PRELIEVO 
DEPOSITO 
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IS3&8% 
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128 
141 

34*sej 
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■ 2im&& 
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182 
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sem&w 
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0 

141 

83MEH 

170 


14$ 


3 



mmm 

ì:iilsl 5 ] 

n;mm 

LER# 

$S0 

'^Tfi 

;BÉPOS170+1 

LEA# 

$83 

STA 

;PRELIEVQ+1 

LDA# 

$C0 

-ypj 

; PRELIEVO 

LDB# 

#0 

STR 

; DEPOSITO 

TRX . 

urna 

LBR 

; BLOCCO 

31 fi 

iHserasan] 


mi 

&mzwi 

128 


J SCHERMO 

m&ffl 

238 


'INC 


mmi 

semata 
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; PRELIEVO 


233 


INC 


mzìm 

3SSHSH:] 
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DEPOSITO 


232 


INK 


mw 

224 


CFX# 

K=r=fi 

40 



#40 

mm 

288 
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rorsft 

235 



+LO0R 

m$£\ 

96 
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033R 88 80 8D 
0342 51 03 fì8 
034R 00 SB 53 
0352 3D 0B 80 
0358 03 E8 E@ 
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03 

A9 

33 

SB 

C0 

8B 

50 

03 

R9 

03 

flR 
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C0 
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E E 

50 

03 

EE 

53 

28 

B0 

EF 

60 
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Figura 1 









-BLOCCO 

^SCHERMO 

sLOOP 


maw a 
mam 

imm 

SHStaw 

tm 

LEfXtf 

#40 

nsm 

LDBX 

jBLOCCO 

STflX 

; SCHERMO 
BÈX 

BNE 

+LOOP 

_ _ RTS 

■dMMIEGMMll ai Cesisi d l IVOm Sci zittìi 




m~m 

msm 


mmà 


238 
24? 
96 


033H fi 2 28 BD CO 83 9B SS 30 
0342 CR D0 F7 £0 SS S® SS 06 


Figura, 2 


consente 256 incrementi prima di 
tornare al EiflSlC. In oltre siamo 
costretti;i a ricorrere si registro X per 
avere un contatore su cui operare- 


Esaminiamo ore il programma. in LM 
ut! lizzando le tecnica de^li indi rissi 
ind i o i sset i. r > f i su re 2). 


Vediamo ore in che modo si pobbs. 
trasferire dei blocchi con pìu di 256 
locazioni di memori e. 


Innazitutto c^" da notare che le 
istruzioni indicizzate tendono conto/ 
eu tornati cairi ente / del CflRRY , vaiando 
necessario. Per esempio utilizzando le 
sesuentì due istruzioni/ in 

accumulatore verrà" riportato il valore 
delle locazione presente all"'indirizzo 
7BFE+S5/ cioè' 7C64. 


LBX# #5 
STRX,;7BFE 


Una routine che consente di trasferire 
un blocco di Ì6SS locazioni di una 
rarte ^alun^ue di memoria nella 
memoria di schermo in un modo 
pressoché" istantaneo può" - essere 
ctuella di figura 3 che commentiamo 
brevemente. 


Come prima cosa e' da tenere presente 
che poiché' lo schermo del, FET e J 
formato da 1S66 locazioni di memoria 
RRM/ effettueremo tre vo Ite un 
trasferimento di 256 locazioni pìu uno 
di i 00Ei-< 256*3 cioè-" 232 che in 
essdecimale corrisponde a E8. 


Pertanto all'inizio caricheremo V con 
il valore 3 e per tre volte eseguiremo 
256 volte un salto alla subroutìne 
TRASFERISCI <26 6B 03> che consente di 
prelevare e depositare i dati avendo 
come riferimento X. 


L'inizializzazione non e" 1 nu " 

ne oe ssar i av il pr csramma e ' p i li " 
sn e 1 loi p iu * conprensibi 1 e e o 11retutto 
p iu 1 veloce. Provate ad immaginare come 
si corù p lioherebbe j ciuesto programma.' se 
non si ricorresse a 11"" indirizzamento 
indicizzato nel caso in cui sia 
necessario considerare i1 carru per la 
parte aIta r de^li indirizzi! 


Quale esercizio/ i 1 lettore.- può - " ora 
studiare in uri primo momento il 
f unz i on ame nt o delibiti mo P r o^r amm a 
presentato ne l la precedente puntata* e 
'ìu indi :n seguito rnodi'f icare que Ilo di 
figura 3 di POCKET FET n.1 t utilizzando 
la tecnica appena appresa. 


JSR <0.P. 28 >;x yy) e' una istruzione a 
tre bytes che ci permette di saltare 
alla subroutine il cui indirizzo e"' 
rappresentato dai due bytes seguenti* 
Il lettore 3 ia/ conosce l'RTS/ 
istruzione implicita ad un byte (0#P« 
66>, 


Effettuato i 1 trasferimento dei tre 
blocchii ora ci rimane ctuello da 232 
hytes. Le prime istruzioni 

inizializzano te locazioni INIZPRIM+1 
e IMIZSEC+i. 

: ln2;Potremo modificare da BASIC con 
tre POKE i contenuti delle, locazioni 
827 332 e 337 in modo tale da poter 
trasferire qualsiasi spHjppq di 1606 
locazioni in altre parti otualsiasi di 
memoria RAM. 
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Figura 3 
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:-Th 


STA 


#0 

;INIZ3EC 
INlZFRIfT 


LIlV# 

$3 

li m 
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"RAS FERISCI 





* 1-LGOP 

INC 

3 ; INIZFRIN+1 

INC 

3 ,IHIZSEC+1 

BEV 
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J8R ' 

3 TRASFERÌ SCI 
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Una redazione di un giornale o di una 
rivista risulta essere sempre un luogo 
piene dì carte, dj. fascicoli, matite e 
penne, pellicole e gente che va' e che 
viene'. 

Anche la redazione di Focket PET non 
fa eccezione a questa regola. 

Per rendere un po 1 rilassante questo 
ambiente cosi 1 frenetico e caotico, 
abbiamo pensato che in occasione delle 
feste natalizie e dì fine d'anno di 
inserire una nota di allegria e di 
pace nello spazio redazionale: 
un alberello di Natale, 

Un albero un po’ diverso da quello che 
viene normalmente allestito negli 
uffici di persone "normali". 

Infatti in redazione di Pocket PET non 
ci si poteva accontentare del classico 
abete corredato di festoncini e di 
lucette Intermittenti all * unìsono, 
e ,, , quindi: 

PET alla mano, ed ecco che nasce un 
programmino che ad analisi compiuta 
doveva avere queste semplici 

prerogative: 

disegnare un piccolo abéte 
stilizzato sullo schermo. 

scrivere la- causale "Pocket PET 
Natale.1931 M con un sistema ed una 
grafica adatta alle circostanze, 

simulare l’accensione e lo 
spegnimento di ipotetiche lampadine 
sul video, 

dato che in un Natale che si 
rispetti nevica, si doveva far 

i ■% 

■ nevicare. 

- generare tramite là porta di uscita 
CB2 della USER-POPI (piedino M) e la 
massa (piedino N) un segnale che 
opportunamente amplificato diffondesse 


per "l'aire” i classici mofclvettl che 
si ascoltano generalmente in queste 
occasioni * 

E...* ’dulcis in fundo’: 

- tramite una semplice interfaccia e 
per mezzo delle uscite che vanno da 
PAD* a FA? della USE-R-PQRT poter, 
pilotare otto serie di lampadine, vera 
questa volta, installate su un 
altrettanto vero albero di Nàtale, 


Per riassumere si può 1 dire che la 
realizzazione completa richiede 
essenzialmente l’applicazione alla 
USER-FORT di un semplice 
amplificatorino di bassa frequenza e 
la costruzione di una altrettanto 
semplice interfaccia fra il PET e la 
sua nuova perfiferica costituita dal, 
modello "abete con luci", 

L’attualizzazione r di tutti questi 
passi non e’ tassativo al fine 'del 
buon funzionamento del programma. 

Il programma gira anche se non viene 
applicata ne l’interfaccia FET-Albero 
e neppure se si omette il pìccolo 
amplificatore * 

Tutto sta quindi alla scelta del 
lettore quale potrà' essere lo stadio 
della realizzazione da raggiungere. 


H programma. 


Prima di parlare della parte Hardware 
vediamo di analizzare quel mezzo che 
la redazione utilizza per portare gli 
auguri di Pocket PET nelle vostre 
case, 

Questo programma e’ sostanzialmente 
divìso in parti ben distinte che 
possiamo analizzare una ad una con la 











































































solita tecnica di; 


REMarks, 

1-6 In queste poche righe ' e f 
situato il programmino/routine 
scrìtto in linguaggio macchina 
che ci permetterà 1 di ottenere 
l'effetto nevicata a suor di 
musica. Questa routine e T stata 
scritta in Assembler in quanto 
per ottenere il medesimo effetto 
in BASIC si sarebbe pregiudicata 
l 1 esecuzione dei pezzi musicali. 
La routine» e’ applicabile a tutti 
i tipi di PET Commodore con 
l'esclusione del modello 8032 e 
del VIC20. . 

L'interprete BASIC rispetto al 
linguaggio macchina diretto, 
perde moltissimo tempo per 
eseguire le varie funzioni 
richiamate. In Assembler invece i 
comandi sono talmente veloci che 
la routine prsposta, nonostante 
la - completezza dell'effetto 
ottenuto* viene eseguita in un 
batter d'occhio e-, sopprattutto* 
senza implicare un rallentamento 
della musica e degli effetti che 
il programma e' in grado di 
fornire. 

La sona di memoria Interessata da 
questa routine e 1 quella del 
buffer della seconda unita 1 a 
cassetta magnetica ed il .sistema 
usato per scrìvere i comandi -in 
questa zona di memoria e' quello 
. dì eseguire delle PQKE in 
successione con i valori decifrali 
dei vari comandi ed istruzioni di 
Assembler, 

■f 

Balla locazione 830 fino alla 
locazione 937 e' .quindi situata 
la ''nevicata", . 

7 ' La routine per * girare 

regolarmente utilizza anche 
un'altra zona della memoria RAM 
del sistema, sistuata oltre il 
programma BASIC, 

In questa riga si inizializsa con, 
valori casuali (RANDOM) questa 
area di lavoro, 

S-37 In queste semplici righe 'si' 
attualizza sullo schermo le 
scritte coreografiche "Pocket PET 


*__ _ * _ « fi 





l Indirizzo ! dati 


! mnemonico 

1 num l esa ! 



1 


* ___ 





830 ! 0 33E ! A2 

00 


! LDXIM 

0 

833 i 0340 ! AC 

3B 

03 

l LDX 

327 

835 ! 0343 I B9 

00 

1 F 

! LDAY 

7936 

838 ! 03 H 6 ! 85 

62 


I STAZ 

98 

840 I 0348 ! B9 

Q 1 

1 F 

! LDAY 

7937 

843 ! G34B ! 85 

63 


! STAZ 

99 

845 ! 034D ! Al 

62 


! LDAIX 

98 

847 I 034F J C9 

2E 


1 CMPIM 

46 

849 ! 0351 I DO 

0 4 


E BUE 

4 

351 ! 0353 ! A 9 

20 


! LDAIM 

32 

853 ! 0355 1 81 

62 


I STAIX 

98 

855 ! 035? ! B9 

00 

1 F 

! LDAY 

7936 

358 ! 035A ! 38 



! SEC 

859 ! 035B ! E9 

29 


! SBCIM 

41 

'861 ! G 35 D I 99 

OO 

1F 

! STA Y 

7936 

364 1 0360 ! B9 

01 

TF 

E LDAY 

7937 

867 ! 0363 ! E9 

00 


l SBCIM 

0 

869 3 0365 I 99 

01 

1F 

! STA Y 

7937 

872 ! 0363 ! B9 

00 

1F 

! LDAY 

7936 

875 I 036B ! 18 



I CLC 

876 ! Q 36 C r 6E> 

3A 

03 

1 ADC 

826 

379 5 036F ! 99 

00 

1 F 

! STAY 

7936 

882 ■ 0372 ! B9 

01 

1 F 

l LDAY 

7937 

885 ! 0375 ì 69 

00 


! ADCIM 

0 

3fì? ! 0377 ! 99 

01 

1F 

E STAY 

7937 

890 E 037A ! C9 

84 


! CMPIM 

132 

892 l 037C I DO 

05 


! BUE 

5 

894 ! 0 37E ! A 9 

30 


! LDAIM 

120 

396 E 0380 ! 99 

01 

1 F 

J STAY 

7937 

899 r 0383 l 09 

7F 


3 CMPIM 

127 

901 ! 0385 t DO 

05 


! BNE 

5 


l 903 i 0387 ! A9 83 ! LDAIM 131 < 

! 905 ! 0339 I 99 01 1 F I STAI 7937 f 

I 908 ! 0330 3 B9 00 1 F ! LDAY 7936 I 

- 911 ! 0 38F ! 85 62 ! j STAZ 95 1 

ì 913 1 0391 ì B9 01 1 F ! LDAY 7937 ! 

! 916 ! 0394 l 85 63 ! STAZ 99 1 

1 ! 0396 ! Al 62 ! LDAIX 98 I 

r 930 1 0398 l C9 20 ! CMPIM 32 ! 

! 922 l 039 A I DO 04 f BUE 4 E 

l 92 4 ! 039C ! A9 2E ! LDAIM 46 ! 

1 936 l 039 E ! 81 62 ! STAIX 98 I 

! 928 I 03 A 0 i 88 t DE y , 

ì 939 ! 03A1 1 38 ! DEI 1 

1 930 ! 03A2 ! CO FE ! CPYIM 254 ! 

T 932 l G3A4 ! PO 03 I BE Q 3 ! 

! 93*4 ! 03A6 I 40 43 03 ! JMF 835 ! 

I 937 ! 03A9 ! 60 ! RT$ ; 

* -— # -_#«_._ 

Mei listato del programma in BASIC 
esiste una parte in linguaggio 
macchina, ecco In versione 
Assembler quella routine che ci 
permetta di generare' e far cadere 

la neve. 












M-s* 


le* 


i n r-etìss i on 


ipl i 


Pocket P£T 


1 POP J=S30 TO 537: REfiD x -POKE J.^NEXT 

£ ERTA 162.0.172.59,3.185.0,31,133.93.135.1,31,133,99.161,93,201,46,208.4,169 

3 ERTA 32,129,93,185,0,31,56,233,41,153,0,31,185,1,31,233.0,153,1,31,185,6 . 

4 BRTi"t 31,24, 1 y^,58.3.15b. 8, b 1,185.1,21,105,0,153,1,31.201,132,208.5,169,128 

5 BFlTfi 153, 1,31,201,127,203,5. Ì69,131,153,1,31,185,0,31,133,98,185,1,31,133" 

6 BRTft 99,161,98,201.32,208,4,169,46,129,98.136,136.192,254,240,3,76.67, 3,96 


7 

S 

9 

10 

11 

12 

18 

14 

15 

16 
17 
Lb 

19 

20 
21 
22 

23 

24 

“IT 

iJ 

26 

27 

28 
29 
38 

31 

32 

33 

34 

35 

36 

37 

38 

39 
4tì 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


POR 1=7336 70 
FRINÌ ] '[CLR]" 


8131 STEP 2 : POKE I,RHE(5>#256 : P0KE 1 + 1,RNE(5>#4+128 : NEXT 


r~ 

H 

ì 


\ r—, 

H H P 


H L 


PRINT 
PRINT 
PRIMI 
PRI NT 
PRINT 
PRINT 
1=35 

PRINT ,p [HOMEJ 11 
PRINT TRB(I) JI J 
PRINT TfìEa)' 1 ] 
PRINT TFlBay 1 
PRINT TRB(I)' 1 
PRINT 
PRINT 
PRINT 

FRINÌ 
PRINT 
PRINT 
PRINT 
PRINT 
PRIMI 
PRINT 
PRINT 


H h p POCKET PET 


TRB<1) JI 

P 

I" 


TfiECl) 11 ^ Slf 
7RE< I>" m u 
TfìBd)" 1 " 

TABci);: i ;; 
T Ri i I 5 rV' 

TRIO 31 J—r 

TRECI) 1 '*' 




THBU3 
TRE < I > fK 
TRBCI) H 
TAB< I ) 15 
PRINT TRBa? 11 
PRINT TfìB<r>” 




h- 


IL 


.- 9 * 


1=2; 
PRINT 
PRINT 
PR I NT 


M- . 


Tv 

" K 

« J 


—I E—£ E 


rn “ TftBaV' 
ì “ TRBCD 1 ' 

J- ” TfìBa) 11 ^ “ 

BIM NT<24>,EP<24>,3V<5>,RE(5) 

Q0=142 : IF PEEK/50000)THEN Q0=60 
B=255:P=2TCi/12> 

POR 1 = 1 TO 24:NTa>=INT<B+.5^B=B7p:NEXT I 
NT(0>=0 

TE=20 : T$= 1J " : PRINT 3J [HOME3" 

PRINT TRB<TB>; "CUPI CRVST^C0FF3C 2 LEFT3CEOMN] 
POR 1=1 TO 9 T$=T$+CHR$C34> 

PRINT TfiE(TE-I)," /%TRB<TB+I ); Ef \ 

PRINT TfìBCTB-D^V 11 ì TRBCTB+l ) ; Et 
NEKT I: PRINT TRECTE-I+1 >; T$; '™ M 
PRINT T0£<T£);‘W r 
PRINT TRB<TB-2> SM 1[RVS] 

PRIMI TRBCTB“1) H ^ERVS3 
PRINT "[NONE] 11 
POR 1=0 Tu 24 

T= I NT <. 5+SQR £ * 25+2# INT < RND< 1 ) *45 ) 

R“a*T+l:lF RNBtl». 5 THEN R=R+1 
IF R>13 THEN 54 
C=INT<RNIia)*2m~T+l 

BP=327GS+40*R+C+TB:IF PEÉK£BPK>32 THEN 54 
BPi I)=BP : POKE ERj 96 
HEHT I 


BBTfr ' 

-- 

Indice 

T abe I la 

Valore 

POKE 

Nota 
Corri sic-. 

A 

1 

255 

ED b 

B 

2 

241 

BQ 

C 

3 

227 

DO # 

B 

4 

214 

RE 

E 

5 

202 

RE # 

F. 

G 

6 

191 

MI 

7 

180 

FR 

H 

8 

170 

FR tt 

I 

9 

161 

SOL 

J 

10 

152 

SOL# 

K 

11 

143 

LR 

L 

12 

135 

LR # • 

N 

13 

127 

i SI 

N 

14 

120 

DO 

0 

15 

114 

DO # 

P 

16 

107 


e 

17 

101 

RE # 

R 

18 

96 

MI 

S 

19 

!■ 90 

FR 

T 

20 

85 

FR # 

U 

21 

80 

SOL 

V 

22 

76 

SOL# 

u 

23 

72 

LR 


24 

1_ 

68 

LR # 


\ EI 
T$ 


[OFF ir 
E OFF 3^" 


Tabellina relativa alle 
relazioni fra 1 dati 
riportati nei DATA del 
programma ed i valori 
delle POKE da eseguire al 
fine dì ottenere le 
giuste note musicali 
rlcheste nei brani 
musicali^ 


















61 FOR 1=0 TO 24 : POKE BPfl),g2:NEXT I 
£2 FOR I=p TO 5’RE(I> =PEEK ( GS+1>■NE7IT I 

63 POKE 59467, 16 r POKE 53466- 15 ■ POKE 59464, 0 : PN=-1 

64 READ N$,B:POKE 32?', i 00 : POKE 826,81 

65 IF DC=S THEN 77 

66 HT=fìSCCN$>-£4 ■ BL-1NT£RNB(Ì>*25) ’FC=^KT<NT) 

6? £P=EPCBL)- NE-113-FEEKCEP) 

68 1F TKTM THEN 68 

69 IF PN=PC THEN F'OKE 53464, 0 
78 F'OKE 59464, PC ■ F'OKE EP, .NP 

71 POKE 59459,INTC 255*RND<1>):SVS 830 

72 Phf=FC 

73 TM=TI+U*4 

74 GET T$-'IF T$= JMi THEN 64 

75 POKE 59464,0=POKE 59466,0 =POKE 59467.0 

76 END 

77 JJ=-D 

78 IF NiM ,[ ;> fF 
IF N$= IJ t" 


73 

30 

SI 


THEH FOR TO 5:SV(2>=PEEK<G0+Z):NEXT 2:RP=1 :GOTO 64 
AND RFCD THEN FOR Z=0 TO 5 : POKE Q0+Z, $V<2) ■ NEXT Z :RP=*RP+1 : GOTO 64 

IF m= w < n THEN FOR 1=0 TO S^PQKE Q0+I ,REa> ■ NEXT l'GQTQ 64 
GOTO 64 

32 REM' DECK THE HALLS 

33 BfìTR>,0 J Oy7.,M,2,L,4, JA,HÀ\j i 4,L,‘t,H-4,J J 2,L,2,n,2,J,Z,L,6j3,2,H l 4,G,4,H,G 
84 DATP u, 7, li, 2, L, 4, J, 4, H,4,1,4,L, 4.. H.. 4, J, 2, L, 2, M, 2, -J, 2, L, 6,4,2,H,4,C,4,H,8 

S5 DATA Jj , ,L,2, H, 4, J.- 4, L, 7, 11,2,0,4,1, 4, L, 2, N,2,ù, 4,G,2,S,2,T,4, S, 4,0,4,0,8 
86 ERTA .0,7, M,2, L,4,J,4,H,4,J ,4, L, 4, H.. 4,0, 2, 0,2, §,2,Q,2,0,7,M,2,L,4,JT,4, H> A, (ì, 4 

37 DATAI-,-3, @,32 

88 REH ====== GODE KING 

89 DATfì>,0,H,4,H,4,H,4, J,4,H,4,H,4,C,8,E,4,C,4,E,4,G, 

98 DATA H.4,H,4,H,4, J,4,H,4jH,4,C,8j E,4,C,4,E,4,G,4,H,8,H,8 

91 HATA 0,6,11, 1,U4,J,4,U4, J,4,H, 3, E, 4, C, 4, E, 4, G, 4, H, 8, H, 8 

92 DATA C,4,C,4,E,4,G,4,H,4,H,4,J,S,0,4,M, 4,L,4,J,4,H,18,M,10,H,10,@,8 

93 BATAT,-3,0,32 

$4 REM ====== JINGLE BELLS 

35 DATA>, 0,J,4,J,4,J,8,J,4,J,4,J,8,J,4,M,4,F,6,H,1,J>I6 

36 CftTH -K,4,K, 4,K,6, K, 2 ,Kj4, J,4, J,-S, Jj2j J, 4,B,4,H,4,J,4,H,9,M,8 
y? DHTR -J, 4, J, 4, J, y, J", 4, -J, 4, J, 8, J, 4, M, 4, F, 6, H, 1, J, 16 

38 DATA K,4,K,4,K,6,K,2,K,4,J,4 J J,6> J, 2, M, 4, M, 4, K, 4, H, 4, F, 16 

99 DATA A, 4, J, 4, H, 4, F, 4, fr, 12, A,3, R, 1, A, 4, J, 4, H,4, F, 4C, 16 

100 DATA C,4,K,4,J,4,K,4,E,16,M,4,M,4,K,4,H,4,J,16 

101 DATA A,4,J,4,H,4,F,4,A,16,A,4,J, 4, H, 4, F, 4, C,16 

102 DATA C, 4, K, 4, J, 4, H, 4, H, 4, M, 4, M, 4, M, 4,0,4, M, 4, K, 4, H, 4, F, 16, t,-2 

103 DATA -J, 4, J , 4, J, 8, J, 4, J, 4, J, 8, J, 4, M, 4, F, 6, H, 1, J, 16 

104 DATA K, 4, K, 4, K,6,K,2vK,4, J,4, J,6, J,2, J, 4, H, 4, H, 4, J, 4, H, 9, M, 8 

105 DATA J,4,J,4,J,S,J,4, J,4, J,S, J, 4,M, 4, F,£,H,1,J,16 

188 DATA K,4,K,4,K,6,K,2,K,4,J,4,J,6,J,2,M,4,M,4,K,4,H>4,F, 16,0,32 

107 REM ====== RUDOLPH THE 

108 DATA>,0,H,2,J,3,H,10,H,2,J^1,H,2,J,13 

189 DATA F, 2, H, 3, F, i. 5, C,3, L,3, J,3, H, 10, H, 2, J,ì ,H,2, J, 1,H,3, J,3,E, 13 

110 DATA H, 2, J, 3, H, 1*5, E,3,M*3> J, 3, H,19, H, 2, J, 1 ,H,£, J, 1,H,3,M,3,L, 13 

111 .DAi'A F,2,H,3,F, 1 ; 5, C, 3, L, 3 ,-J, 3, H, 10, H, 2 ,.J, 1, H, 2, J, i>H,3,0,3,M,Ì3 

112 DATA J,3,J,3,M,3,J,3,H,3,E,3,H,6,F, 3,J, 3,H,3,F,3,£,12,C,3,C,3,H,3,H,3 

113 DATA L,3,L,3,G,£,t1,3,n,3,L-3, J,3,H,3,F,3,0,6 

114 DATA H,2,J, 3, H> 1.5, E, 3, M, 3,J,3,H,10,H,2,j,l,H,2,J, i,H,3,M,3,L,13 

115 DATA F,2, H, 3, F, i ■ 5, C, 3, L, 3, JF, 3, H, 10,H,2, J, 1,H,2, J, 1,H,3,0,3,li, 13, t,-2/0,32 

116 REM ====== SILENI NIGHT 

117 DRTA>,8,HjS,J,2,H,6,E, 13,H,8, J,2,H,6,E, 18,0','4a-0,6.iL, 16,fi, 10,M,6,H, 16 

118 DATA J,10,J,S,M,3,L,2,J,6,H,8,J,^,H,6,E,16 
l'i9 DATA J, 10, J,6,li,8, L, 2,1,6, H, 8, J, 2, H, 6, E, 16 

128 DATA 0,10,0,6, R, 8,0,2, L, 6, FI, 16,0,16, M, 5,H, 5,E,5, H, 3, F, 2, C, 6,FI, 1S, 18 

121 DATA H, S, J, 2, H, 6, E#18,H>8,J,2,H,6,E,18,0,10,0,6,L,16,M,10,M,6,H,16 

122 DATA J,10,J,6,M,8,L,2,J,6,H,8,J,2,H,6,E,16 

123 DATA J,10,J,6,11,8,L,2,J,6,H,8,J,2,H,6,E,16 

124 DATA 0,1G,0,6,R,3>0,2,L,6,M,16,0,16,M,5,H,5,E,5.H,8,F,2,C;6,A,13,t,-2,0,32 

125 DATR<,0 









Natale 1 9 81* 

Questi caratteri verranno posti 
sullo schermo in posizioni 
esteticamente studiate, 

38 Dimensionamento di alcune 
tabelle che vengono utilizzate 
nel programma. 

39 Per togliere ogni possibile 
dubbio si può' tranquillamente 
dire ohe questo programma può* 
girare sia con PET vecchie che 
nuove RDM, nonché 1 con CBM serie 
4000. Infatti in questa riga il 
sistema si accorge di quale 
edizione di ROM sta* utilizzando 
ed a causa di cio T adegua il 
valore della variabile Q0* Questa 
variabile interessa alcuni dei 
pointer di pagina zero. (per i 
neofiti si può f dire che la 
pagina zero non e 1, altro che la 
prima zona dì memoria RAM del 
sistema e che e T riservata e 
gestita dal microprocessore 6502) 

40-42 Una delle routine di questo 
programma veramente interessante 
e' proprio scritta in queste tre 
righe. Quattro istruzioni in 
croce ed ecco due ottave musicali 
nei rispettivi numeri 

corrispondenti alle FOKE 

Interessate. X valori ricavati 
dalla formula .(per convenzione 
universale si divide la frequenza 
della nota precedente per due 
elevato ad un dodicesimo per 
ottenere la nota seguente) sono 
posti in una tabellina chiamata 
NT (da Noia). 

Il primo elemento della tabella, 
quello indicizzato con il 'numero 
zero, viene inizìalizzato con il 
valore zero,. numero che 

significherà 1 assenza di rota. 


43-52 Ecco un altro 
istruzioni alquanto 
avranno la sola 
disegnare l'albero 
completo di puntale 
base * 

Con questa 
identificano quell 
della memoria di 
pratica i punti 
verranno interessati 


gruppo di 
semplici che 
funzione di 
di Natale 
e di vaso di 

routine si 
e posizioni 
schermo (in 
del video) 
alla futura 


62 


63 


64-81 


accensione e spegnimento delle 
pseudo lampadine, 24 in totale.. 

Le 'istruzioni terminano 

riportando il valore 

corrispondente allo spazio la 1 
dove per necessita' di routine e 1 
stato forzato il valore numerico 
96, 

Memorizzazione in tabella dei 
valori interessati delle 

locazioni di memoria di pagina 
zero, 

Con questi comandi di POKE sì 
apre la funzione di musica 

all'interno del PET senza pero' 
generare alcuna nota* Cosa 

abbiamo fatto in sintesi 

eseguendo questi comandi? 

E' presto detto : con la prima 
POKE sì da il vero comando di 
apertura del modo musica; con il 
secondo comando si sono scelte le 
due ottave musicali che il PET 
può r generare senza 
cambiare il contenuto 

posizione di 

contrassegnata con 59466. 

Cosi’ per curiosità’ si 

provare con le due 

seguenti e con le due 


dover* 
della 
memoria 

potrà' 
ot bave 
seguenti 


ancora, variando la cifra 15 con 
51 o Con 85 . 

Questo e' veramente il cuore del 
programma. In questa zona avvieng 
proprio di tutto: dalla 

generazione dei suoni, alla 
accensione e spegnimento delle 
pseudo lampadine, al pilotaggio 
dell'interfaccia che provvedera' 
a far lampeggiare le vere 
lampadine del vostro albero di 
Natale ed infine la nevicata. ,11 
puhto focale e 1 situato 

esattamente in riga 70 e in riga 
71 . 

I comandi speciali sud quali fa 
perno tutto il programma sono: 


POKE 59464,PC 


POKE BP,NE 


genera la nota indivi¬ 
duata con le istruzioni 
precedenti 

spegna od accende la 
pseudo lampadina indivi-' 
duata in maniera RANDOM 
all'interno dell’albero 



a 


POKE 59459 ,INT(255*RND(1)) genera un 

numero casuale ohe in* 
teressa direttamente la 
USER-PORI da FAO a FA? 


SYS (630) 


fa scendere la neve, in 
aintesi esegue la rou¬ 
tine in linguaggio mac¬ 
china 


In riga 7^ se nessun tasto viene, 
premuto ai contìnua ad . eseguire 
il.brano/i musicali con ciò 1 che 
ne segue. In caso contrario, come 
un buon direttore d'orchestra che 
riponendo la bacchetta chiude 
i 7 esecuzione di un concerto, 
cosi 7 il nostro FET pone a sero 
quelle tre locazioni di memoria 
interessate alla generazione 
della musica/ Questo passo e 1 
obbligatorio in quanto il 
circuito integrato &522 VIA 
{versatile interfaccia 
adattatore) interessa anche la 
gestione di entrambe le unita' a 
cassetta magnetica. Lasciando 
aperte quelle porte, 
inevitabilmente, si ottengono dei 
risultati negativi in fase di 
LGAP o dì SAVE. 

82-125 Queste righe comprendono tutti ì 


valori delle note 

delle pause o 

(numeri) e dei 
riconoscimento di 


(lettere ) t 
mantenimenti 
comandi di 
fine testo 
ultimi ci 


musicale. Questi 
permettono dì influenzare quelle 
locazioni di pagina ‘■zero 
interessate alla gestione dei 
pointers (righe 78-79-80) 
permettendo cosi 7 l'esecuzione in 


continuo 
musicali* 


dei 


cinque 


brani 


L 1 Hardware « 

E 1 inutile dire che 1 
bassa frequenza andra 
prese M l ed N della 
generazione delle 
avvengono proprio all 
la massa (N ). 

Veniamo subito quindi 
interessante della 
quella cioè 7 che ei 
comandare le luci 
natale tramite il nos 


'amplificatore dì 
' collegato alle 
USEfl-PGHT* La 
note sonore 
a porta CB£ (M) e 

alla parte piu' 
realizzazione, 
permetterà 1 di 
dell'albero di 
tro FET. 


L'interfaccia che mi accingo 
descrivere potrà' essere impiegata 
anche per altre realizzazioni quali ad 
esempio comandare qualsiasi circuito 
elettrico che necessita un controllo 
esterno .preordinato. 

Non esiste quindi la limitazione 
all 7 uso specifico natalizio, ma la 
versatilità 7 dell'utilizzazione e 1 
lasciata alla ‘ mente estrosa del 
lettore. 


Il circuito* 

H m-, r^- mm -n -me I» Est -r* Wm n 

Il circuito 
semplice* 

Un normale 
continua che 
compresa fra 
con 200/300 
sufficentè i 


elettronico e' 

alimentatore a 
può 7 erogare una 
± valori di 9 e 
mA, sara 7 
1 fornire il 


alquanto 


tensione 
tensione 
12 volt 
piu' che 
voltaggio 


necessario a tutti i componenti. 
Essenzialmente lo schema può 7 essere 
suddiviso in tre parti ben distinte. 

L 7 al intentazìone . I circuiti integrati 
ohe vengono utilizzati richiedono una 
tensione dì alimentazione dì circa 5.1 
volt stabilizzati, mentre la sezione 
relay necessita di una tensione di 
9/12 volt. 

Un transistore di potenza NFN tipo 
2N3055, un diodo speciale senrier da 6 
Volt, due resistenze ed un 
condensatore elettroìittico 

t opportunamente collegati fra dì loro 
ci forniscoho la bassa tensione di 
alimentazione necessaria ai circuiti 
integrati 75^51. 



Questo piccolo schema e ! 
composto da componenti 
atti a ridurre e 
stabilizzare la tensione 
di alimentazione da 12/15 
volt ai circa 5*5 volt 
necessari per il buon 
funzionamento degli 
integrati tipo 75 * 151 . 
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Ì'TL Drive* Là s e cono a parte dello 
schema e 1 costituita da quattro 
integrati della serie TTL 
(Tran sistor-Transisto-Logic}. Questi 
integrati, di facilissima 
reperibilità*, sono stati studiati 
appositamente per poter pilotare al^ri 
circuiti che utilizzano tensioni fino 
a 30 volt e che necessitano un fan-out 
elevato. Proprio per questo potere 
elevato di pilotaggi* (fan-out) questo 
integrato viene comunemente utilizzato 
in grossi calcolatori per attualizzare 
le funzioni di rinfresco delle memorie 
dinamiche » 



Schema elettrico di base 
di cui e T costituito il 
circuito dì DRIV.E, Questo 
schema e' stato 
duplicato, nella 
realizzazione pratica, 
otto volte in quanto otto 
sono le uscite della 
USER-PQRT, 


TTL imcgrntcd Circuit 


T75451A 



S9"*" _ 


v ec ?b a, 

jBL.njn_u 
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_j7L-.cn Ft n 

? 
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Molto in breve vengono 
riportate le 
caratteristiche 
elettriche di 
funzionamento, lo 
connessioni interne ed i 
dati di ingombro del 
circuito integrato della 
serie TXU tipo 75451 * 


Osservando il disegno relativo alle 
connessioni interne del 75451, questi 
e 1 costituito da due funzioni uguali 
ognuna delle quali comprende una porta 
NAND a due ingressi ed un transistore 
che ha la vera e propria funzione di 
drive* Oltre che avere una funzione dì 
pilota questo transistore e 1 un 
invertitore di stato, per questa 
ragione il circuito nel suo complesso 
logico e' un AND a due ingressi* 

Allo schema non interessa inesistenza 
di un doppio Ingresso per cui l'uscita 
della USER-FORT sara' collegata 
direttamente ad entrambi gli ingressi 
del NANO. 


QuandiO il FAx della USER-FQRT 
cambierà' di stato il transistore 
sara T messo in condizione dì condurre, 
si permetterà' quindi il passaggio di 
corrente fra il colletore e 
1 1 emettitore * 

Relay, Come gla T detto, ogni 75451 
comprende due circuiti di drive ben 
distinti; ogni integrato allora potrà* 
pilotare singolarmente due relay aq 
quali andranno applicate funzioni 
specifiche preordinate* 
























































In questa figura 
viene riportato in 
•grandezza naturale 
(1:1) il circuito 
stampato lato rame 

del DRIVE. 





Riassunto; 

_PA>; della USEfl-FORT del PET cambia 
di stao lamico. 

-la por? il WAtfD riconosce questo 
u am dì Mento e fa si che: 

-il transistore conduca e quindi: 

_H relay viene eccitato in quanto, il 
circuito e 1 chiuso verso massa. 


XI circuito stampato proposto . in 
queste pagine vede l’utilizzo dì relay 
della SIEMENS tipo V23012 A0002-A0G1, 

Il costo di questi componenti non e* 
eccessivamente elevato, ma se questo, 
fatto in realta' sussistesse od al 
contrario fosse richiesta una diversa 
caratteristica di capacita’ fra i 
contatti, nessuno vieta di modificare 
il disegno .delie piste di rame etì 
adattarle al tipo di relay prescelto* 

L f utilizzazione di un altro tipo di, 

sottostare alla 

elettriche che il 
D-RIVE richiede* La 
costituisce parte 
avere una' 


relay dovrà' 

caratteristiche 
circuitine di 
♦bobina che 
dell r elettromagnete dovrà* 
tensione di eccitazione non 
ai 1-2/15 volt ed non dovrà’ 
per il suo funzionamento 
corrente maggiore ai 300 mA 
Nella figura che mostra 
disposizione dei componenti 
notare alcuni ponticelli* 

I ponticelli, costituiti 
cavetto di rame 


superiore 
richedere 
di una 

1 * esatta 
si possono. 


da 


relazione alla 
dell T interfaccia * 
suggerito nella 
componenti ed 


comune 

che si trovano vicino 
agli integrati sono obbligatori, ' 
mentre quelli Che notiamo vicino ai 
relay possono venire in parte omessi, 
tutto ciò 1 in 
destinazione pratica 
Cosi 1 come e' stato 
disposizione del 
utilizzando quel tipo di relay, si ha 
una logica chiamata MA {normalmente 
aperto). Ciò 1 vuole dire che quando sì 
ha un cambiamento di stato alla. 
USEfì-PQRT si avrà’ la possibilità' di 
un circuito elettrico chiuso. Al 
contrario se i/il ponticelli fossero 
messi fra T la piazzolina in basso e 
quella mediana si avrebbe una logica 
NO (normalmente chiuso) e cosi 1 quando 
arriva il segnale, il circuito si apre 
o l’eventuale utilizzazione si 



Ecco come devono essere 
posti i vari componenti 
sulla basetta del 
circuito stampato. Notare 
ì ponticelli eseguiti, in 
particolare quelli vicino 

ad i relay* 


arresterebbe, 
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Sulla rivista BIT ri. 22 e' - apparsa una 
notizia riguardante i1 nuovo 

lìtìsuassùo per i 1 PEI* il-' 
COHflL-80 

riportiamo inte^raIrriante il testo* 

— — - 

Nuouo i ■-■ 

r* ■=* r*- i 1 PET 
Commodore de 1 T-s. 

H -=?jr ~~den S - k> - R* 

La KRRBEN S^Fìdistributrice in 
esolusiuà de 1 PETOMMGBQRE distri" 
buina/ gratuitamente a coloro ohe ne 
facciano richiesta i 1 COMfiL—30. 

Il COMPL-S0 e 1 '' un lìnyuaysno BASIC 
strutturato ohe unisce i vantaci del 
P aso ad al la semp 1 i o i ta' del ERSIu * 

E"' stato or i v inariamante studiato per 
scori educati m i * al fine di r. no p-o rre 
un tiro di Uimi&yaiQ di taci le 
uti lizzo.- strutturato* e di alta 
le-3-yibi lita/ i si ritiene tuttavìa ^che 
rossa ' r i su 11 are estremamente ut i le 
anche in altri tiri di applicazione 
non esc tu sa 'tuella. Pr ofess i ona le. 

Il COMAL-SS <28k di codice ometto) 
irci ud e * o Itr e a-y 1 i ore rat or i usu a 1 i 
del EPS IC-- come INPUT.. FRI NT* LET.- 
eoe. -alcuni statments di tiro 
strutturale che consentono a 11-"utente 
di trattare separatamente blocchi di 
istruzioni. 

Ad esemr i c : 

IF-ELSE-ENBIF * REfHfìT-UNT IL 

HHILE-EHDWHI LE j CRSE-WHEH -ENECASE. 


Vi sono inoltre alcune estensioni 
rispetto al BASIC come esempio la 
possibilìta/ dì definire variahi li 
lunghe fino a 16. cara.t ter:. Le 
subroutine vendono richiamate Per 
nome e non per numero ed cani 
chiamata puo^ includere il passavie 
dì parametri. 

11 CBM-CÒMfiL e^ un progetto in via dì 
sui turno; e*' sia/ disponici te una 
versione detta’ "split versìon" che 
consente di lasciare un may-ssior 
spazio in RAM rer- V utente* si sta in 
oltre studi arido una versione anche 
per il VIC. 

p 

- - 

In questa sede la HRRBEN vuole 
confermare la gratùita/ del programma 
GQMRL-80* escluso naturalmente il 
supporto* il costo della copia dei 
manuale e delle spesa di spedizione. 
Occorre pera'' ribadire che per 
soddisfare tutte le richieste e' 
necessario ohe oyni interessato 
faccia pervenire alcune informazioni 
basi lari. 

,1> Home e cognome 
*2> Indirizzo 

3> Tiro di FET-CBM £4032 0 3032) 

4) Tiro di Floppy disk C4046 0 8050> 
5> Causale ! richiesta COMFiL~S0 

Par comunicare tutto ciò - " e / 
suffacente anche una semplice 
carte 1 i na po sta le ed- in b neve teatro * 
con il solo onere del rimborso _ delle 
vive spese* che si aspirano intorno 
alle L,I50S0> potrete avere un nuovo 
a potente’ linguaggio. 
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se 


S.pJL 


ft Commodore 


non 

sarai 

mal 

solo 

con: 


Un servizio 
completo 
perogii vostra 
esigenza 













Eccolo finatraentej Questa “diabolica" 
tastie-ra.- c-stì> 50 e eli soddisfare i Piu' 
esilariti computer isti * e'di unta ora 
anche in Italia. 

Un'anno fa era stata presentata ta 
versione a oaratter ì diapponesi eli 
^ijp sto prodotto del la Commodore 
distribuito dalla Harden. E fu 
proprio allora che carii guarito e ,J 
i Riportante osfi saper - prodr arni/i ar e ed 
usare un computer. 

Io che scrivo* pur essendo privo di 
conoscenze di "ROM" “RFlM Ir e “PGKE", 
ne i Raccostarmi al me nd o 

del Rinformatioa.j soro r imasto 

stupefatto di fronte alle , rieoo le 
dimensioni * al le possibilità" di 
espansione* al prezzo ed a 1 la. 
taoi lite d'uso del "VIC 20 JJ . Par 
citare gualche caratteristica' ha. la 
po ss i b i 1 i t a/ d i avere i k col or i ad 
alta risoluzione e otto di fardo,- una 
memoria “RAM" espandibile fino a 32 
Kbytes* tre toni contemporanei, di 
suono e oqsì' via di -questo 
passo........ 

Erecentissima fra le altre cose una 
pubblicazione del "Gruppo- Editoriale 
Jackson 11 sull'auso e . le 

caratterìstìche del "VIC _ 2@% 
distribuita anche dalla Harden -Spa* e 
dai suoi rivenditori autorizzati. 
Questo libro* il cui titolo e' : 
IMPARIAMO A PROGRAMMARE IN BASIC CON 
IL VIC 2w f e y stato curato dalla 
professoressa Rita Bone Ili. 

La pubb 1 i caz ione si pr ef i e 

innanzi tutto di insegnare a 

programmare ai profani* ed scritto 
in modo semplice e comprenaibi le. 
Purtroppo e' tutto stuello che si può" 
avere fino ad ora in linsua italiana. 
He IR attesa, mi ero premurato di 
avere dettagliate informazioni sui 
corsi di programmazione in lìnsuassip 
Basic. Visto Pero"' V impegno 
eccessivamente oneroso* in termini dì 
tempo e denaro* decisi che era mesi lio 


abusare de 1 la 
computerista* 
PET j con i 1 
ugualmente* e 
Infatti cosi - '' 
Passati 


pazienza di un amico 
i?ia" possessore di un 
r isu Hate di impar-are 
senza spesa alcuna, 
e"' stato. 

primi scosli 


deli'apprendimento de i B AS IC * mi soro 


accorto di guanto siano vaste le 
poss i b i l i te/ ci i pll3 est i p i eco I ì. 
calcolatori che* andando ben oltre al 
puro divertimento* sono capaci di 
soddisfare perfettamente molte 
necessita 1 " ad esempio sia di una casa 
o dì un ufficio. 

E' certo che entro pochi anni le 
comuni massaie ne faranno uso* cosi" 
come ostii usano il telecomando del 
televisore. 

Allora* signori* vorrei dire 1 
incorninoiamo a capirci un ro di 


piu"".’ diamoci un po' pìu' da fare per- 
precorrere ì tempi.Ciò' che si 
prefisse la tecnologia del. domani* 
e'la completa automazione in o-yni 
attività'. I raridissimi progressi 
com p luti n e 1 R elettronioa ne sono la- 
testimonianza. Non ci si metta in 
mente pero' R1d ea* pera Itro 

fantascientifica* che rossa avvenire 
un sopravvento 1 de 1 la mente 


"artificiale^ su 'duella umana- 
Lasciamo alla fantasia questo cenere 
di idee'. 

Ben venaa quindi questo nuovo 
31 per sona 1 computer 1J * *iua le e ' il "VIC 
20". Tramite esso poi* ho scoperto 
un'er oì ca sch i era di arrassionat ì * 


che moIto stanno facendo per 
diffondere l'informatica a livello di 
massa sia come hobby che come mezzo 
comrlamentare al lavoro. Tutto ciò' 
non fa altro ohe allargare il mio 
basaslio di conoscenze e perche' 
rio?..... di esperienze. 

Un mondò nuovo*insomma* mi si 
presenta. davanti* 

"aspettando il VIC --- — " 

















ra e p p a 

Sella seguente tabella vengono riportate alcune delle piu 1 Importanti 
locazioni, di memoria del VIC20 con particolare puntualizzazione alla pagina 
zero ed alle corrispondenze con i FET CBM versione BASIC 4.0. 

Si tenga presente che la versione BASIC 1.0 del VIC2Q corrisponde al BASIC 
4.0 dei PET CBM 4032 e 3032 con 1 T esclusione dei comandi tipo DLOAD DSAVE ed 
altri inerenti alla gestione dischi. 



! locazione 

! decimale 
* 

j 

1 

« 

descrizione locazione del 

VIC 20 

! 

j 

* 

corrisp 
PET 4.0 

. 1 

1 

* 

I 0 

2 

t 

locazioni per USR 

j 

0 

2 

1 

* 

I 43 

44 

l 

puntatore inizio BASIC 

1 

40 

41 

1 

! 45 

46 

j 

puntatore fine BASIC e inizio variabili 

I 

42 

43 

! 

! 47 

48 

3 

puntatore fine variabili e inizio ARRAY 

i 

44 

45 

1 

! 49 

50 

; 

puntatore fine ARRAY 

r 

46 

47 

j 

! 51 

52 

j 

puntatore inizio zona stringhe 

1 

e 

48 

49 

3 

! 53 

54 

1 

puntatore fine zona stringhe 

! 

50 

51 

1 

4 

ì 55 

56 

F 

P 

puntatore fine memoria utente 

t 

52 

53 


J 57 

58 

t 

numero dell'attuale lìnea BASIC 

! 

54 

55 

; 

I 115 

138 

1 

4 

routine riporto nuovo carattere BASIC 

f 

1 12 

135 

; 

l 

144 

1 

byte di stato di 1/0 {ST) 

3 


150 

1 

t 

197 

1 

immagine dell'ultimo tasto premuto 

1 

n 


151 

! 

! 

198 

j 

numero del carattere nel buffer di tastiera 

j 


153 

| 

i 

p 

199 

j 

flag di reverse C0=spento l8=acceao) 

1 

1 


159 

l 

j 

203 

1 

i- 

codice input della tastiera (64= nessun tasto)! 


1 66 

1 

H 

j 

204 

j 

flag dì abilitaa. cursore (0-acceso 1=spento) 

\ 


167 

j 

i 

205 

! 

ritardo lampeggio cursore 

! 


168 

1 

i 

206 

t 

carattere sotto il cursore 

t 


169 

j 

f 

207 

I 

flag di cursore acceso 

1 

t 


170 

! 

! 209 

210 

r 

puntatore della linea sullo schermo 

1 

196 

197 

! 

j 

21 1 

1 

posizione del cursore sulla linea 

1 


193 

] 

i 

214 

j 

riga su cui giace il cursore 

j 


161 

l 

1 

245 

! 

flag tasti di controllo (159=shift 224 = coiumod 

1 

* ■ 


155 

ì 

.! 631 

640 

j 

buffer di tastiera 

1 

623 

632 

j 

f 

¥ 

650 

t 

funzione dì repeat (128=ins, 127-dis. G=parz. 

)! 



i 

T 

651 

! 

+ 

ritardo che precede il repeat 

r 

4 



1 

1 

+ 

652 

r 

ritardo tra i repeat 

t 



1 

* 

! 823 

1019 

! 

buffer cassetta 

! 

634 

825 

| 

! 1024 

4095 

1 

3K RAM espansione 

; 



I 

! 4096 

6191 

j 

normale area memoria RAM 

! 



t 

! 8192 

32767! 

arca di espansione RAM 

1 

4, 



I 

132768 

36863! 

mappa dei caratteri 

| 



j 

ì 36864 

36879! 

VIC Video Interface Cip 

I 



; 

137136 

371671 

VIA 6522 

F 



1 

■ 

137888 

38399! 

mappa video colore di schermo 

1 



1 

! 33400 

38911 

t 

mappa colore 

1 



J 

! 40960 

49151 

! 

area espansione ROM (plug-in) 

! 



J 

! 4 9152 

65535! 

ROM BASIC e sistema operativo (versione 1,0) 

j 



! 

* 


* 





* 













OROLOGIO DEL VIC26 
POCKET GROUP 
STEFRHO MIRRI 


10 REM 
50 REM m+ 

30 REM m* 

40 REM 
50 REM 
50 

10S PRIMI 

110 POR 1=4 TO 13 

120 PGKE 7888+T.42 

150 NEXT T 

140 POR U=4 TO 13 

150 POKE 38608+0,8 

léO NEXT U 

179 FOR 1=8 TU 1? 

180 POKE 7920+142 
190 NEXT I 

20Q FOR V=8 TO 17 • 

210 POKE 38640+S 
22S NEXT V 

233 PR1NT n .T TfiE<7> LEFTS-CTI*, 2> 



Ecco allora per 1 
"piccolo potente" 
che mostra come 
sullo schermo del 


240 PRINT KIS«<TI^3j2> 
250 PRINT RIGHT^f CTI^j 2> 
260 F-VRLCRlGHmiEf, i>> 
270 C=INTCRND<1)*7> 

280 IF C=i TKEN 270 
?*8 IF fì=P TRE hi 230 
308 POKE 38692+P.C 
313 POKE 7972+P.224 
328 POKE 36879-24+C 
333 POKE 36378^10_ 

343 POKE 36876 t 22 0 
350 fl=P 

360 POKE 36373.0 
370 GOTO 23S 


Il VIC20, come ogni altro computer che 
si rispetti, può 1 svolgere numerose 
funzioni di cui spesso non si conosce 
1 1 esistenza * 

possessori di questo 
un breve programmino 
si puo f visualizzare 
vostro televisore a 
colori (se possibile) il trascorrere del 
tempo. 

Una delle variabili riservate al 
computer e 1 la TI$ che fornisce in 
qualsiasi momento il tempo in ore minuti 
e secondi. 

Al momento dell’accensione del VIC20 si dovrà 1 
■dire al nostro computer che ore sono; questo e’ 
possibile impostando, in maniera diretta, 
TI$ = " 22374 1 Ir , se in quel momento saranno le dieci 
.e trentasette di sera; in sintesi si definisce 
l'orario in HHMMSS. 

Dopo aver premuto il tasto di RETURN il VIC20 
aggiornerà 1 il proprio clock con il nuovo valore 
che verrà * continuamente aggiornato 

automaticamente dal sistema. 


Ma vediamo ora di capire cosa viene eseguito ad ogni riga di programma, 
REMarks. 


righe 10,20,30,40,50 contengono dei puri commenti (REM) che servono 
esclusivamente di presentazione, ma che non influsicono 

assolutamente con il programma se non per lunghezza, 
riga 100 i segni particolari posti fra gli apici ci permettono di 
pulire lo schermo (tasto CLR con SHIFT) e di schendere con il 
cursore tante volte quante sono le lettere Q in reverse (tasto 
CRSR in giu 1 ) ■ 

righe 110,120,130 e 140,150,160 e similarmente 170,180,190 e 

200 , 210,220 cì permettono di disegnare sullo schermo una pseudo 
cornice:. I valori in 7880 identificano il carattere della cornice, 
mentre i valori posti in 38600 definiscono il colore del carattere 
scelto, 

righe 230,240,250 si esegue l'edit dell'orario, separando 
opportunamente le ore dai minuti e i minuti dai secondi tramite il 
segno dì duepunti. „ 

riga 260 si assegna il valore ■ alla variabile numerica P che 
corrisponderà 1 al valore numerico dell'ultimo byte di TI$. 
riga 270 assegnazione di un valore casuale compreso da zero a sette che 
ci permetterà 1 di avere il codice del colore per la scansione 
visualizzata. 

righe 280 fino alla fine; vengono disegnate sullo schermo, con i valori 
di P e C, le varie visualizzazioni colorate del passare del tempo 
e contemporaneamente viene eseguita anche Remissione sonora. 






Pensiamo'dì farvi piacere elencando le varie parti che compongono il 
sistema VIC. 


Vie 20 Computer da 3,5k RAM 'utente* 24 colori In alta 
risoluzione, tastiera alfanumericografioa, tasti 
funzione, user porfc, porta seriale a 4300-Banda, tr< 


generazioni di elioni con estensione 


VIC 1515 Stampante a matrice VIC DOT da 
veloclta f di stampa 40 carafceri 
alf anumer icografica,, seriale i 

allacciatile direttamente al VIC2D, 


di tre ottave* 
L, 59G.GQQ+I 

30 colono' 

al secondi 



Prossimo arrivo. 


VIP 1530 Datacassette Vie per la lettura e memorizzazione 
dei dati,, compatibile PET-CBM, con contatore di 
giri, 

L* Ì20.000+IVA 



VIC 1540 Unita intelligente a singolo floppy disk da ||5 ,T 1 / 4, 
della oapacita T dì 170,000 caratteri, a singola 
densità" e singola traccia, compatìbile PET-CBM* 

Prossimo arrivo* 


VIC 1210 Cartuccia di espansione di memoria per VIC20 da 3^ 
RAM* 




Prossimo arrivo* 



























VlC 1110 Cartuccia di 
RAM, 


espansione di memoria per VIC20 da 8k 

Prossimo arrivo* 



VIC mi Cartuccia di espansione 
RAM, 


di memoria per VIC20 da 1 6 k 
Prossimo arrivo. 



VIC 1212 Cartuccia di aiuto alla programmazione comprendente 
1f Tool Kit" per programmatori, monitor dà lunguaggio 
macchina, funzioni preassegnate per tasti, 
possibilità* di assegnare funzioni ai tasti 
direttamente dall'utente* 

Prossimo arrivo* 



VIC 1010 Cabinet di espansione per V1C20 per.contenere fino 
ad un massimo di 6 schede di espansione 
contemporaneamente. 

Prossimo 'arrivo* 



VIC 101.1 a Interfaccia RS232 ad 
trasmissione * 


alta ' velocita 1 di 

Prossimo arrivo* 
- 



VIC 1011b Come VIC 101 la in versione TTY 


Prossimo arrivo* 



VIC 1211 Super Espander Cartridge per alta risoluzione 
" grafica (32,384 punti di video in totale), funzioni 
per tasti preassegnate, scrolline orizzontale, * 

Prossimo arrivo. 



Z' “ 




VIP 1211n Come VIC1211, ma con aggiunta 
" * "memoria 3^ RAM. 


di ampliamento di 
Prossimo arrivo* 



VIC 19xx Giochi vari su cartuccia ad alta 
grafica e con effetti sonori. 


risoluzione 




Prossimo arrivo. 

























EDITOR 





AH ET 


di Massima fiossi 


Siamo lieti di potervi annunciare di aver mantenuto la promessa fattavi sul 
numero scorsa di POKET PET, Infatti siamo riusci ti t e, vi assicuriamo, non 
e 1 stato facile, a implementare il programma EDITOR MAX, in modo che possa 
caricare le pagine desiderate, senza dover attendere che il registratore si 
fermi alla fine di ogni stringa* 

Questo difetto, infatti, era una spina nel fianco, per chi scrive,- in 
quanto rendeva laborioso e noioso, il salvataggio del testo, senza contare 
lo spreco di nastro che si faceva tra uba stringa e l'altra* La soluzione di 
questo problema, era di caricare la parte di memoria in cui il programma 
viene immagazzinato, direttamente su nastro, come se fosse un programma,. in 
un file di tipo ASCII, tale e quale a quello usato per mettere su assetta i 
programmi in linguaggio macchina. Ed e T proprio usando le routine di monitor 
di linguaggio macchina, che abbiamo ottenuto il nostro sqopo. 

Abbiamo trovato, infatti, una routine di sistema operativo, che 


esegue 
e che 


la 

si 


OPEN, per il SAVE, che e 1 in comune sia al monitor che al Basic, 
trova all’indirizzo esadecimale SF6A4. Se si richiamasse questa routine dal 
Basic,, ammesso che si possa, si avrebbe un salvataggio del testo basic, 
poiché 1 i puntatori di inizio e fine testo, sono automaticamente settati 
sulle dimensioni del testo Basic. Quello che bisogna fare, allora, e' di 
forzare i contenuti di queste locazioni (251-252, indirizzo di inizio testo; 
£01-202, indirizzo di fine testo), con gli indirizzi di inizio e fine del 
testo che vogliamo registrare. Questo si può* solo fare con delle 
istruzioni in linguaggio macchina, alla fine delle quali, verrà 1 richiamata 
la routine di OPEN* 

Se noi volessimo usare delle POKE,. non otterremmo nessun effetto, 
poiché 1 al richiamo della OPEN da Basic, queste locazioni verrebbero 
resettate dal sistema operativo, vanificando il nostro lavoro. 

Ma prima di richiamare la OPEN, dovremo specificare altre cose: il numera 
della periferica, ad esempio. Questo, per la cassetta, e* 11 1 11 , mentre, come 
vedremo poi, per il disco sarebbe "8". Forzeremo questo valore nella 
locazione 212, caricandolo nell'accumulatore e scaricandolo J ìn questa 
locazione* 

Un'altra necessaria informazione, e' il nome del file, in modo che lo si 
possa ritrovare anche su di un nastro dove.esistono molti'files in fila. La 
routine di OPEN, richiede che le si comunichi un indirizza, in cui sia 
immagazzinato in codice ASCII, seguito da uno il nome del file. 

Abbiamo perciò 1 destinato uno spazio apposito, alla fine della routinetta, 
che si trova nel buffer della seconda cassetta, di 10 Bytes, che conterrà 1 
il nome del file, e la cui locazione di inizio sara f immagazzinata nelle 
locazioni 218 e £19* 





La routine, infine, ci chiede di specificare la lunghezza del nome del 
file, cosa che noi faremo, inserendo questo valore nella locazione 209. 

A questo punto, abbiamo voluto inserire anche una routine dì caricamento, 
sempre in linguaggio macchina, che ci permetterà* dì fare una LQAD, senza 
dover interrompere il programma. Qui basterà* specificare la device, la 
lunghezza dal nome del file, e 1*indirizzo di quest'ultimo. Seguirà' la 
routine di L0AD, che si trova in $F322, 

Ottenute queste due routìnette, e legatole assieme, le abbiamo 
disassemblate In modo da ottenere degli statements di DATA, che una volta 
"pokkati 11 , nelle giuste locazioni, da una subroutine'inclusa nel programma, 
che viene richiamata ad ogni RUM, ricostruiscono le routìnes nel buffer 
della seconda cassetta, pronte per essere usate* 
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EDITOR HRIK II UORDER PER DISCO 
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Ovviamente * 

i * 

vi sono 

dei ■ dati 

che 

cambiano ogni 

volta 

che si devono 

registrare le 

pagine « 

Per quanto 

riguarda 

il 

numero di 

pagine da registrare, 

cioè' l'indirizzo di' 

fine registrazione, questo viene 

calcolato dal Basic, e 

’tpokkato", una 

volta 

tradotto nei due 

valori, 

alto e basso, 

nelle locazioni 

relative. 








p 

Un'altra variabile, 

e 1 il nome 

del file: 

questo deve venir ■ tradotto in 

ASCII, misurato nella 

lunghezza, 

(che viene 

caricata in 

209) 

, e a sua volta 

viene ft pokkato 

n nelle 

celle libere apposite, 

fatto seguire 

da uno " OO 51 

s lln processo 

analogo 

, viene ese 

gui to 

per ■ 

il 

LOAD. 




Una notazione interessante,: e T che queste routlnes, non possono essere 
richiamate durante un programma, da una SYS, ma devono essere chiamate in 
"command mode", cioè 1 da comandi diretti. 


Come Fare allora, dato che non volevamo che il programma si interrompesse? 
La soluzione, anche se forse un po' macchinosa, e 1 l'unica che siamo 









EDITOR MRX II 


5©© *GO5UB9000 

ISO© <FR£<O>“Ì00GV320>:F=S:M^0 

lise PRI NT 11 3SONO DI SPOH IP ILI ,J PM" PRO I NE 11 : POR 1 = 1 TO20OO sNEXT 
12S0 POKE167,1 SPRINT 1,1 3" 

1306 P0KE216,6 sF0KE19S,0 :S¥S5?949 tRRINT"X" £ :FORl=1X029 iPRINT" ,J j sNEXT SPRINT 
1460 IFH=0THEH1600 

1500 PQKE216,0*POKE19Q,32:S¥S57949!PRINT"PF!G. "P 
1S0S FORI-iTÙ40sFOK£32S07+1,99sNEXTSPRINT 
170S P0KE167,© 

1 SS© GETA$ : IFAT= lf "THENIGSG 
190Q 1FPEEK<170>=1THEHÌ9©Q 

2000 PRlNTR$j >IFPEEKC216»23THENPDKE2l6,23 
21G0 IFFEEK<216><2 AHDPEEKC151 ? =6THENGOTO1300 
2200 IFPEEK<216>C2fìlWEEKCl51?=65THENGOTO1300 
2300 IFPEEK^3276S>“GTHEN2b0© 

2400 GOTO17©0 

250G POKE216,© ; POKE193, 12 :SVS57949 SPRINT** ,3 ATTENDO ORDINI*" ; 

2600 FQKE32768,32;P0KE32769,32 
27S0 GETfì*:IFfii- N "THEN27O0 
2390 FORI"©T039:POKE32733 +■1,32 :NENT 
2900 IFA$="M"THEN360® 

3000 IF A $ - " R 1J THEH490 0 
3100 IFA$="S ,< THEN62O0 
3200 IFA$="L"THEN6900 
3300 IF A $ “ " P" THENG0SUB790G : G 0 T 012 0© 

3400 IF Fi $ = " C " T HE NM=G? GG TO120 0 
350© GOTO25Q0 

3600 POKE£16,0 sPOKE193,5 sSVS5?949 1 FRI NT "FEMORI ZZ^S" ; 

3700 PGKE216,© :P0KE198,21 :SVS57S49 SPRINT" " 

3300 POKE21 £,© :FOKE198,21 i3VS57949INPUT"HUM P PAGI NFl " P 
3900 PGKE216,©:P0KEl98,21sSVS57949iPRINT" " 

4GG0 TFP<PMTHEN45S0 

4100 , pQKE2Ì6,@:POKE198,21iSVS57949SPRINT"NON ESISTE" 

42©0 FORI-!TOÌ00©:NEXT 

4360 P0KE216,© sPOKE198,21 iSVS57949 SPRINT" " 

4460 G0TO3Q0© 

'4560 P0KE216,© :P0KEÌ98,27 :SV357949 iPRINT"flEM. PHG. "P 
460© FQRI=0TO919 

4700 *POKE3600+<f^920>+I r PEEK<32S40+I>iNEXT 
4000 N=0;QOTO1200 

4900 PQKE216,0 tF0KE198,b :SVS57949 SPRINT "331CH IRMA*" 1 ? 

5000 F0KE216,© sFOKE 198,21 ;SVS57349 SPRINT" " 

5100 F0KE216,© sPGKE198,21 :SVS57949 s INPUT "NON* PAGINA" ;F 
5200■F0KE216, SsPGKE198, 21 :SVS57949SPRINT" 

5306 IFPCPMTHEN5700 

'5400 P0KE216,OsFGKE198,21SSVS57949SPRINT"NON ESISTE" 

55O0 FORI=1TO1000:NEXT 

5600 P0KE216,OsPGKEÌ98,21SSVS57949SPRINT" ":GOTO5100 

5700 P0KE216,0:POKEÌ9G,27!$V3579495FRXHT"RIC.PAG."P 
580© FORI-0TO919 

5906 HtPOKE32S4e+I,PEEK<3600+<P*920>+I> sNEKT 
6006 POKE216,0sFGKE198,28sSYS5?949SPRINT" 

6100 M=iaGOTO1300 

6200 #GOSUB7700EGOSUB710© 

6300 *0=3600+K *3 £ 6 s t1=© 

6400 *H^=07256:RK=0"HK*256 
6500 *P0KE854,H7.sPDKES60,R/i 

6660 *PRINT ' , T3WMW ?CHR^^147^ sSVSS26 sGOTO1200S" iPOKE 158,1 IPDKE623,13 t£NO 
1 6960 *G0SUS78 ©Q s G03 0871©© 

7060 *PRINT ' TMM*r ?eHR^<147^ b SVS8S3 sGGTO 120Sfej" iPOKE153,1 t PDKE623,13 è END 
7160 *LN-LEN<TS$> :1FLH>Ì©THENLN=10 
7260 *P0KES39,LN:POKE096,LN 

7300 *FORI = lTOLNìFt=MlD*<TS*,r,l> sF=fìSG<FIO iRGKE871-s-I ,F iNEXT iP0KEQ72+LN r © sRETÙRR 






7700 * INPUT "WSF INO H OUfiLE PAGINA" ;K 

7300 mmpuj " nmt itolo testo 11 .?ts*;REturn 

7900 N=©iMT$“" " :0PEN4^4 
800 0 *FG RI -3234ST©3376? 
eie© GoteuBB400:XT*=XT$+X£ 

S2@0 N=H+ i : I FN>39THEN0OSUB35©G :N=G 
33 0 0 +NEXT s CL OSE 4 s M=0 : RETURN 

3400 :X=<XRH0127>0R<-CXRHD64^^>0R< C64"XRND32>*2> :X*=CHR*<X> iRETURN 

3500 *pftINT#4,XT$ :XT$= |MI sER=FREC0>iRETURN 
9000 * FO RI =S26TO90(S: RENDO: PO K EI ^-D iNEXT: RETURN 

9100 fcDRTR Ì69,1,133^212,169,Ì©4.,133,,21SM69,3.-Ì3;^219^169^133^209 
£200 #DRTR 169,il,133,252.169.184,133,251,32.151,£3i,169,15,133,252,133 
3300 *DRTR 202,169,30,133,251,133,201,32,151,231,32,464,246,96,69,63 
34G0 *DRTR 73,84,79,92,0,0,0,0,0,169,1,133,212,169,104,133 
95S0 fcDRTR 218,169,3,i33,219,163,6,133,209,162,0,134,150,32,34,243 
9600 *DRTR 96 


CORREZIONI PER DISCO 

7200 P0KE339, LN+2:P0KES96,LN 
7300 F0RIi=lTOLN:F:£-MlD**TS$,I,Ì> :F 

DRTR DEL LDRDER PER DISCO 


=ASC<F$ > 5 P0KE373+1,FiNEXT aPQKES74+LN,0 sRETURN 


3100 DRTR 169,3,133,212,169,104,133,213,169,3,133,213,169,6,133,203 
9200 DRTR 163,11,133,252,163,134,133,251,32,151,231,163,15,133,202,133 
9300 DRTR 202,163,30,133,201,133,201,32,151,231,32,164,246,96,43,53 
9400 DRTR 0,0,0,0,0,0,0,0,©,169,3,133,212,169,106,133 
3500 DRTR 213,169,3,133,219,169,6,133,209,162,0,134,150,32,34,243 
3600 DRTR 96 

riusciti a trovare. Facciamo scrivere sullo schermo lo statement da eseguire 
(nel nostro caso, la SYS, preceduta da un comando di cancellatura schermo 
CHH$(147), e seguita dal GOTO che riprende il programma), e lo facciamo 
seguire da due comandi, che forzano un RETURN. Questo viene fatto con un 
POKE 156,1, che dice quanti caratteri sono presenti nel buffer della 
tastiera e con un POKE 623,13, dove 623 e f la prima posizione libera del 
buffer, e 13 il RETURN. 

Questo fara f scrivere sullo schermo, lo statement da eseguire, e lo 
cancellerà* subito, eseguendolo in command mode, non essendo preceduto da 
alcun numero. 

Il testo del nuovo editor, e f molto simile a quello di quello vecchio, 
basterà' cancellare alcune -righe, e sostituirne altre. Le righe da 
cancellare, sono: 

6700 , 6800 , 7 ^ 00 , 7500,7600 


Le righe da sostituire, sono invece, quelle precedute da un asterisco (*) T 
nel nuovo testo. 

Alcune righe, sono state cambiate, in quanto alcuni' lettori, ci avevano 
segnalato dei malfunzionamenti della routine di stampa. L T uso dell f opzione 
di stampa, infatti, cancellava tutte le pagine scritte precedentemente. 
Questo era dovuto al fatto che la riga 8100, generava una stringa di nome 
XT$, che poi veniva sostituita da un f altra stringa con lo stesso nome: 
questo non fa si 1 , come avviene per le altre variabili, che la nuova stringa 
vada a sostituire la precedente nellea memoria, ma bensi T , l'ultima sposta 
in giu' la procedente, occupando progressivamente lo spazio ( delle nostre 
pagine. L T unico modo per evitare ciò 1 , e 1 di forzare la FRE(O), che e* una 
routine che ripulisce la memoria dalle vecchie stringhe, e che di solito, 



viene richiamata solo quando la memoria e 1 piena 
uguagliandola a una variabile fittizia FR* Questo 
Garbage Collectlon, ad ogni fine strìnga, evitandoci 
Diamo un'occhiata al programma Basic: 


Noi la richiamiamo, 
forza la routine di 
i fastidi di cui sopra. 


500 

4700 5900 
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Richiama 

Richiama 
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il programma e 1 piu T lungo 
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la routine di LQAD 
il nome del file e la -sua 


in 9000 
alto cor 


lunghezza 


Inputs vari! 

Inizio stampa alla riga corretta 
Corregge la variabile M 


la 
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0500 Richiama il Garbage Collectlon, dopo ogni riga stmpata 
9000-9600 Routine dì loader 

Diamo, ora, un f ocehiata alla routine in linguaggio macchina* 

Abbiamo usato dei comandi di load diretto (LDA_), nell'accumulatore, per 
poi immagazzinare i dati contenuti in. quest f ultimo, nelle locazioni volute, 
con uno STA, cioè' "metti il contenuto dell'accumulatore nella locazione 
voluta 11 . Abbiamo, poi, immesso i richiami alle routines di caricamento su 
nastro, che sono di seguito $E797 e $F6A4* Terminata l f esecuzione del 
programma di save, l'istruzione 60, (RTS), 'riporta il controllo al Basic, 
Troviamo poi, in locazione dee. 872-832, lo spazio per il salvataggio del 
nome del file {nella, routine e f scritto EDITIR, ma durante l'uso, si 
immetterà 1 il nome desiderato)* 

Vi e 1 , quindi, la routine di load, costruita come la precedente, con il 
richiamo alla subroutine di load che si trova in locazione esad* $F 322 . 

Termina qui la descrizione di questa implementazione, che, cronometro alla 
mano, ci risulta impiegare per il caricamento di ogni pagina, circa 15 
secondi, control 2 minuti circa, della versione precedente. Un buon 
risultato, non vi sembra? 

Ma non ci siamo accontentati di questo: ora vi presentiamo una versione 
del nuovo EDITOR MAX, per chi ha il Floppy Disk Driver, e desidera un 
caricamento rapido, e che occupa poco spazio sul disco. 

Dovete solo correggere le righe 7200 e 7300, secondo la figura fuori 
testo, e sostituire alle righe di DATA, nel testo del loader per cassetta, 
le righe in figura. 

In locazione 872, vi e‘ 30? che in codice ASCII, e r,l 0 JI * Questo e 1 il 
numero del drive* Se qualche lettore lo desidera, può* inserire nel testo 
Basic, un input per scegliere il drive: si pokkena T , poi in locazione 872, 
30, se il driver e' quello di destra, e 31 , se il driver e r quello di 
sinistra * 

Tutto 'il resto del funzionamento, e ! identico al primo EDITOR MAX, che fu 
pubblicato nel numero 2 di Pocket Pet, 

Speriamo di avervi fatto piacere, e vi chiediamo, comunque di inviarci 
Vost'ri eventuali suggerimenti, che saranno sempre ben accolti, e premiati. 
Nuove implementazioni, sono in progettazione* 

H„B,ì Per chi volesse adattare l 1 EDITOR MAX per le versioni BASIC diverse 
dal 3*0, cioè f per le vecchie ROM- e per il BASIC 4*0 suggeriamo di 
consultare le note riportate nel presente numero nell'articolo: "A proposito 
del RAGNO NERO 11 * 

Ricordiamo anche che per una svista del proto, nella scorsa puntata, il 
carattere r, @" e f stato sostituito erroneamente con il carattere n % n . 







nuovi 

comandi 

per Sii 


BRS&C 


di Roberto Sozzani 


■ ? 

■Questo articolo e 1 tratto da un artìcolo di David Sircions apparso su 
un numero dì quest'anno di una rivista inglese* 

In esso si spiegava come sì possono aggiungere dei comandi al 
BASIC* edì era completato da un programma dimostrativo* Sulla scorta di 
quelle note fio elaborato un programma per aggiungere una serie di nuovi 
comandi al BASIC, Esso puc’ servire da esempio sulla procedura 
necessaria* ed ognuno e T libero dì aggiungere le funzioni che ritiene 
piu’ utili o di cancellare quelle di poco interesse. Ogni comando, in 
pratica, rimanda ad una routine in linguaggio macchina residente nella 
parte alta della memoria. Sì possono pertanto costruire programmi-Basic 
in cui intere funzioni vengono svolte da routine in linguaggio macchina' 
richiamate da semplici comandi. Ciò 1 semplifica notevolmente il compito- 
dei programmatore e rende il listato incomprensibile al profano* 
Vediamo ora come si possono fare accettare al FET dei nuovi comandi. 
Bisogna innanzitutto sapere che alla locazione $70 inizia una routine, 
chiamata CHARGET* Essa analizza le linee BASIC,. stabilendo se 
accettarle* o rifiutarle con il fatìdico messaggio "SYNTAX ERROR", Ecco 


come 

si 

presenta questa routine: 

di 

0070 

E6 

77 

INC 

$0077 ; 

incrementa byte sorgente 

0072 

DO 

02 

BNE 

$0076 ; 

nuova pagina ? 

007*1 

E6 

73 

INC 

$0078 ; 

si, incrementa il contatore di pagi 

0076 

AD 

02 02 

LDA 

$0202 ; 

carica il contenuto della 






locazione $0202 

0079 

C9 

3A 

CMP 

#$3A ; 

e 1 un due punti ? 

007B 

B0 

OA 

BCS 

$0Q&7 ; 

se il carry e' settato, va a RETURN 

0Q7D 

C9 

20 

CMP 

#&20 ; 

e T uno spazio ? 

0Q7F 

F0 

EF 

BEQ 

$0070 ; 

si, rlcomineia 

0031 

30 


SEC 

* 

J 

setta il carry 

0032 

E9 

30 

SBC 

#«0 ; 

sottrae il numero DEC 43 

008 i| 

36 


SEC 

■ 

t 

setta il carry 

0085 

E9 

DO 

SBC 

#$D0 ; 

sottrae il numero DEC 203 

0087 

60. 


RTS 

s. _ 

RETURN 

Come 

si 

vede * 

essa 

controlla i vari caratteri della parola Bas 


prosegue per stabilire se il carattere successivo sia un due 


.e* e poi 
punti o 









uno spazio; questo pero' per il momento non ci interessa. Interessa 
invece sapere che noi possiamo modificare il contenuto della CHAHGET in 
modo da farla rimandare alla locazione di memoria in cui risiede la 
nostra routine con i nuovi comandi. Se* ad esempio, questa locazione 
fosse $7000, la CHARGET diventerà 7 : 

0070 40 00 70 JMP $7000 jgoto $7000 

Quando il PET va alla locazione $70 trova cosi' un'istruzione di salto 
alla locazione da noi scelta, ed invece di eseguire le normali 
operazioni di controllo dell'istruzione BASIC, eseguirà' le nostre 
istruzioni. La routine per caricare quest'istruzione di salto e 7 molto 
semplice e può' essere locata nella zona di memoria che piu r ci 
aggrada, come nel buffer della prima o della seconda cassetta, o 
direttamente subito prima del programma vero e proprio, 

Nel nostro esempio abbiamo scelto questa ultima possibilità', e la 
routine di abilitazione, che inizia alla locazione $7800, e 1 esposta 
nelle righe DQ19-0024 della pagina l del listato assembler, ed e' 
seguita da una breve routine di protezione delia memoria in cui 
risiederà’ il nostro programma (righe 0025-0031)* Queste istruzioni 
pongono il valore $77FE nei puntatori di fine memoria RAM. Il programma 
verrà' quindi abilitato con il comando SVS 30720 {che equivale a HÉX 
* 7600 )* 


Le istruzioni ' delle righe 0035-0042 disabilitano il 
rilocando in memoria le originarie istruzioni della CHARGET. 


programma 


Il programma vero e propr 
verificare se il carattere 
Quest 1 ultima, operazione viene 
valore HEX 40 corrisponde al 
comandi dovranno pertanto ini 
cambiare carattere, e 7 suffi 
espresso in esadecinrale del c 


io inizia alla riga 0046, con un test per 
da noi digitato e 7 un nuovo comando, 
eseguita alla riga 0066 (CNF #$40), Il 
carattere "(1", Tutti ì nostri nuovi 
ziare con questo carattere. Se si volesse 
ciente ‘ 'porre dopo 09 il valore ASCII 
arattere scelto. 


Dopo aver verificato che .il carattere corrisponde ad un ' nuovo 
comando, il programma carica un nuovo byte per vedere di quale comando 
si tratti. Se trova un carattere previsto da programma esegue le 
relative istruzioni, altrimenti ritorna alla CHARGET e visualizza 
STNTAX ERR0R. 


Maggiori dettagli sono contenuti nel listato. Il programma viene 
presentato con i valori relativi al Basic iJ.Q. 1 valori per il Basic 
3*0 (nuove ROM) sono specificati, fra parentesi, nelle righe che 
necessitano la correzione. Ci tengo a ripetere che le varie funzioni 
aggiunte con questo programma hanno un carattere dimostrativo ed 
esplicativo e come tali vanno considerate. 'Spero serviranno di esempio 
per tutti coloro che vogliono cominciare a cimentarsi con il linguaggio 
macchina, e se qualcuno trovasse nuove funzioni particolarmente 
interessanti da aggiungere può 1 spedirle al-le redazione di questa 
rivista, che le pubblicherà'. 




COMANDI: 


@X = Esegue il reverse dello schermo. 

e a# = Esegue la conversione da decimale a csadecimale, 

Deve essere seguito dal numero da convertire* 

§& = Abilita il comando di TF repeat" : un carattere viene 

ripetuto fino a quando il' tasto e' premuto* 

SS = Setta il suono: deve essere seguito dai valori, 

separati da una virgola, dell’ottava e della nota. 

Es * : SS 15 ,250 

tìK = Disabilita il repeat ed azzera il suono. 

62 — Esegue lo scroll verso il basso dello schermo* 

66 = Esegue lo scroll verso l'alto dello schermo. 

6Q - Disabilita il programma. 

6A = Setta lo schermo sui caratteri maiuscoli* 

6B = Setta lo schermo sui caratteri minuscoli, 

6M = Mette in memoria l'intero schermo, I dati vengono 
memorizzati a partire dalla locazione EÉX ?COO* 

6L = Carica i dati dalla memoria e li visualizza sullo schermo, 

6X = Scambia lo schermo con la memoria, ovvero 1 dati 

sullo schermo passano in memoria, ed i dati in 
memoria tornano sullo schermo, 

6F = Stampa i mille caratteri presenti sullo schermo, 

Deve essere saguito da: 

1 _ stampa allargata - 2 - stampa normale* 

6 C = Disegna una cornice sullo schermo; deve essere seguito 
dal valore di PEÉK del carattere voluto* 

Es.: 6 C 102 


N.B.; Tutti i comandi che sono seguiti da dei numeri devono aver 
interposto uno spazio, altrimenti il comando non viene accettato* 

Es*: §P1 = SYNTAX SRROK 

SF 1 - Stampa allargata. 


Come caricare l 1 EXTRA BASIC ? 

Proprio nell'ultima pagina di questo articolo viene riportato sia un 
programmino di LOADER che la lista in linguaggio macchina dell'EXTRA 
BASIC* 

Intuitivamente due sono i metodi di caricamento. 

Il primo e* quello di riportare nei DATA tutti i' valori esadecimali 
della lista in LM ricordandosi di porre c.ome ultimo dato il valore -1; 
sara" il programmino stesso che provvedere' a tradurre ogni valore 
esadecimale in decimale e quindi a 1 pokkarlo 1 nella giusta locazione. 
Dopo un po' di tempo, abbastanza lungo in quanto molti sono i DATA da 
pokkare, e' il medesimo programma che suggerisce la giusta SYS per 
attivare 1 1 EXTRA BASIC. 

Il secondo metodo e' quello di inserire direttamente i valori in LM 
tramite l'uso del monitor TIM: 


EXTRRBRSIC.FA8. 00^1 


RIGA# LOG C'OIÌI CE 


IST. 


0001 
mw2 
0003 
0004 
0005 
0006 
0007 
0003 
3003 
0010 
00H 
0012 
0013 
0014 
0015 
0016 
0017 
0018 


0000 


0000 

0000 

0000 

0080 

0000 

0000 

0000 

0000 

0000 

0300 

0030 

0000 

0030 

7333 

7330 

7300 


i m iti i_L" i l_i 1 _[_■1-J.i i I j b 11 iI l tii i_j- jJ_l l_Ej 11 _ .1.. I _-J.- .1. -1 - ■ J ■ -_L - JL ■ J_- -X - -.JL- -i L, , fc-,É P 
/ * *'p■F*■T*'T"T^fp!fr 

J* EXTR H BASIC 4é3 - OTTOBRE 81 * 
i* R,5. - POCKET GROUP - MILANO # 
;* C BASIC 3.0 TRR PARENTESI > * 

■ ij. i ij. i Mr ili I_L i ili Mi ili MJi iJU. ilkiRbLKil.rf.il. i-l i l_|_j L_1 a i^hr ■ JL fc ^J_l -J-« .JU . I -. I . 

J T T*®* ********** *T *T ** *T 


FINE=$76 

SUONO“53467 

GTTAVR-5946S 

NQTR=59464 

SCR“534S8 

STfiF:T“30720 

.4 

*=STHRT 

j ABILITfiZIGHE PROGRAMMO 


0019 

7800 

A9 

40 



LBR 

#$4C 

0020 

7302 

S5 

76 



STR 

$76 

0021 

7304 

A9 

23 



LBR 

#<PREP 

0322 

7306 

35 

71 



STR 

$71 

0023 

730S 

f\9 

73 



LBR 

#>PREP 

3024 

7 38 A 

35 

72 



STR 

$72 

3025 

7S0C 

A3 

7? 



LBR 

#$77 

0026 

730E 

35 

35 



STR 

$35 

0027 

7810 

35 

31 



STR 

$31 

0028 

7812 

A3 

FF 



LBR 

#$FF 

0029 

7914 

85 

30 



STR 

$36 

0333 

7816 

85 

34 



STR 

$34 

3031 

7918 

4C 

FF 

£3 


JMP 

$B3FF 

0832 

731E 




j 



9833 

781B 




oBISABILITAZIONE 

0034 

7B1B 




J 



3035 

731B 

89 

F6 


BIS 

LBR 

#$ES 

0036 

761B 

85 

70 



STR 

$70 

8037 

731F 

-R9 

77 



LBh 

#$77 

3038 

7321 

35 

71 



STA 

$71 

3339 

{ 323 

89 

110 



LBR 

#$B6 

8S40 

7325 

35 

72 



STA 

$72 

0041 

7327 

20 

E3 

78 


JSR 

SUB 

SS42 

732A 

26 

FF 

B3 


JSR 

$E3FF 

8043 

732B 




? 



0044 

7S2D 




jPREPfiRRZIONE 

8045 

732D 




jl 



3046 

782B 

3E 

90 

83 

PREP 

3TX 

$6390 

0347 

7830 

BA 




TSX 


0048 

7331 

BB 

SI 

Gii 


LBR 

$6101,: 

0049 

7334 

C3 

23 



CMP 

#$23 

0856 

7836 

m 

16 



BNE 

□UT 

0051 

7838 

ED 

02 

01 


LBR 

$0102, 

0052 

783E 

C5 

C6 



CNF 

$C6 

0053 

733B 

F8 

09 



BEG 

OUT 

8654 

733F 

E6 

77 



INC 

$77 

0055 

7841 

B0 

02 



BNE 

NO 


)' PROTEGGE MEMORI fi 


; (4C 89 C3) JUMP fi REFEV 


<4C 89 C35 JUMP fi READY 


MEMORIZZA X 


E' IN EDIT ? 
ÌC9 F9) 


SI, INCREMENTO BYTE SORGENTE 


EXTEfiBflSIC.FAQ. 3082 

RIGA# LOC CODICE IST. 


0@56 

7843 

E6 

73 



INC $79 



0057 

7845 

4C 

54 

78 

NO 

JMP TEST 

j 

Vfl R VEDERE 3E NUOVO COMANDO 

6058 

7843 

ft E 

98 

03 

DUI 

LEK $0390 

? 

NO, RECUPERR H 

0059 

784B 

ES 

77 



INC $77 

f 

INCREMENTR BVTE SORGENTE 

0060 

7S4D 

D0 

02 



BNE NOI 



0061 

794F 

£6 

78 



INC $78 



9062 

7851 

4C 

76 

00 

NOI 

JMP FINE 

■ 

GET PROSSIMO BVTE 

0063 

7854 

PO 

08 


TEST 

LEV #00 



8864 

7356 

Bl 

77 



LBR <$77>iV 


SET CRRRTTÉRE 

0065 

7858 




? 




0866 

7853 




;e' un 

NUOVO COMANDO ? 



0067 

7958 




J 



■ 

0068 

7853 

C3 

40 



CNF #$4S 

i 

s @ ? 

8069 

785R 

FS 

03 



BEO SI 

i 

SE SÌ PROSEGUE 

8070 

735C 

48 

76 

60 


JMP FINE 

* 

RLTRIMENTI RICQMIMCIP 

0071 

735F 

E6 

77 


SI 

INC $77 



0072 

7361 

B0 

32 



BNE N02 



8073 

7863 

£6 

73 



INC $7$ 



0074 

7865 

B1 

77 


N02 

LBR <$77>,V 



8075 

7367 

£6 

77 



INC $77 



8876 

7369 

liti 

02 



BNE NG3 



8877 

736B 

E6 

78 



INC $7S 



8873 

736B 




* 




0879 

736D 




i REVERSE BELLO SCHERNO 



0003 

786D 




J 




0001 

7S6B 

C9 

49 


NG3 

CMP #$49 

t L 

= I ? 

0002 

736F 

ES 

17 



BNE VIP 



0083 

7371 

R2 

80 



LUX #$36 



0884 

7373 

fl@ 

00 



LEV #$00 



6885 

7375 

34 

01 



STV $01 



0086 

7877 

36 

02 


LP 

SIN $82 



0037 

7379 

Bi 

01 


LP1 

LBR <$01>iV 



0033 

787B L 

49 

08 



EOF #$96 

f 

REVERSE SINGOLO CRRFlTTÉRE 

0689 

737B 

91 

01 



STR <$01>iV 



0390 

737F 

C3 




XNV 



0031 

7333 

BG 

F7 


r 

BNE LPi 



3392 

7832 

E9 




INX 



0333 

7993 

£0 

84 



CPX #$94 



8034 

7995 

B0 

FS 



BNE LP 



3335 

799? 

60 




RTS 



3096 

7338 




i 




0097 

7393 




; CONVERTE EP BEO B HEX 



0398 

7838 




j 




3099 

7388 

C9 

23 


VI fl 

CMP #$23 

> 

= # ? 

8100 

?33h 

m 

13 



BNE VIRI 



8101 

7S3C 

20 

34 

BB 


JSR $BD84 

f 

(2S 8B CO 

0102 

788F 

20 

2E 

09 


JSR $C92D 

f 

<20 m B6) 

0133 

7892 

20 

22 

B7 


JSR $B722 

> 

<20 75 E7) 

0104 

7895 

98 




TVR 



8185 

7896 

20 

22 

B7 


JSR $B722 

t 

<20 75 E7> 

6106 

7899 

E0 

01 



BNE N04 



0107 

739B 

60 




RTS 



0103 

789C 

4C 

76 

00 

N04 

JNP FINE 



3109 

789F 




J 




0110 

7S9F 




JRBILITR REPERÌ 




5 ^ 


\È 






EXTRRERSZC.. PRG. C«3 


rio m 

LOG 

COBICE 

IST, 


0111 

783F 




0112 

7S9F 

C9 26 

VIRI 

CMP #$2S ; = £ ? 

0113 

7881 

00 3C 


BUE VI82 

0114 

7883 

78 


SEI 

0115 

70Fi4 

89 B2 


LBR 1KREPERT ; MODIFICA IRQ 

0115 

7SR6 

85 90 


STA *96 

0117 

?ms 

R3 78 


LDA #>REF'ERT 

0113 

7888 

85 91 


STRI $91 

0113 

788C 

89 61 


LBR #1 

0120 

7S8E 

35 FF 


3TR $FF 

0121 

73B0 

58 


CLI 

0122 

?3Ei 

60 


RTS 

9123 

78B2 

85 97 

REFE8T 

LBR $97 

0124 

7SB4 

C5 FÉ 


CMP $FB 

0125 

73B6 

F8 09 


BEQ REFI 

0126 

78BS 

85 FU 


STB $FB 

012? 

73BR 

89 18 


LBR #$10 

0123 

73BC 

35 FE 


STR $FE 

0125 

7BBE 

4C 55 £4 

3T0F 

JMP $E455 ; <40 2E E6> 

0130 

79C1 

83 FF 

REFI 

CMP #$FF 

0131 

7SC3 

F0 F$ 


BE0 STOP 

0132 

78C5 

R5 FE 


LBR $FE 

6133 

73C7 

F9 04 


BEO REP2 

0134 

7803 

C6 FE 


BEO $FE 

0135 

7SCB 

B0 FI 


J6NE STOP 

0136 

7SCB 

06 FF 

REPS 

BEO $FF 

0137 

73CF 

B6 ED 


BHE STOP 

0138 

78B1 

R3 02 


LBR #2 

0133 

78Xi3 

35 FF 


STR $FF 

8140 

78D5 

R9 00 


LBR #0 

0141 

78B7 

85 97 


STR $37 

8142 

78E9 

89 62 


LD8 #2 

8143 

7SDB 

85 R8 


STR $R8 

0144 

78EB 

D0 BF 


BHE STOP 

0145 

73BF 




8146 

78BF 


;DISRBILITR SUONO E REPEAT 

014? 

7SDF 


t 


S14S 

78DF 

C3 4B 

VI 82 

CMP #i4B ; - K ? 

0143 

78E1 

D0 18 


ÉNE VIR3 

0158 

78E3 

R3 55 

SUB 

LBR #*55 ; <Fl9 2E) 

0151 

?3£5 

85 90 


STR *90 

8152 

78E7 

89 E4 


LDR #*E4 i <R9 E6> 

0153 

78É9 

85 91 


STR *91 

0154 

73EB 

89 10 


LBR #*ie 

8155 

73ED 

85 FD 


STA *FB 

0156 

78EF 

83 00 


LBR #0 

0157 

73F1 

8B 4B E8 


STR SUONO 

0153 

78F4 

8B 4R £8 


STR OTTRVR 

0153 

78F7 

3E 48 E8 


STR NOTA 

0160 

78RA 

35 01 


STR *01 

0161 

78FC 

60 


RTS 

0162 

78FD 


J 


0163 

7SFB 


JRBILITfì SUONO 

0164 

78FB 


J 


0165 

79FB 

09 53 

VI 83 

CMP #$53 ; = S ? 




EXTEPBHSIC. 


,. PRO. 

0004 




RIGA# 

LÙC 

CODICE 

IST* 




0166 

78FF 

DO 

18 


BNE 

VI 84 


0167 

7391 

89 

10 


LER 

#16 


0169 

7303 

8D 

4B E8 


STA 

SUONO 


0160 

7306 

20 

Di CS 


JSR 

$C8Dl 


0170 

7309 

E4 

01 


CPX 

$01 


0171 

73 m 

F0 

05 


BEO 

SII 


0172 

730D 

86 

01 


STX 

$01 


9173 

790F 

SE 

48 E8 


STX 

OTTAVA 


0174 

7912 

20 

27 03 

SII 

JSR 

#C92? 


0175 

7315 

8E 

43 E8 


STX 

NOTA 


0175 

7318 

60 



RTS 



0177 

7319 



t 




0178 

7319 



.SCEGLI VERSO IL BASSO 


0179 

7313 







0190 

7313 

C3 

32 

VIA4 

CtlP 

#$32 


0101 

791E 

ce 

2R 


BNE 

VI85 


^182 

791D 

80 

28 


LDV 

#$28 


0183 

791F 

34 

22 


STV 

$22 


0194 

7321 

80 

00 


LEV 

#0 


0185 

792J 

84 

20 


STV 

$20 


0196 

7925 

A0 

BF 


LDV 

#$BF 


0197 

7927 

82 

33 


LEX 

##83 


0133 

7329 

86 

21 

LP2 

STX 

$21 


0183 

7321- 

86 

23 


STX 

$23 


0190 

732D 

Di 

20 

LP3 

LCfl 

C$20)*Y 


0131 

792F 

91 

22 


STA 

<#22>,V 


0192 

7931 

88 



EEV 



0133 

7932 

C0 

FF 


CPY 

#$FF 


0134 

7334 

E0 

F7 


BNE 

LP3 


0135 

7336 

Cfl 



DEX 



0198 

7937 

E0 

7F 


CPX 

#$7F 


0197 

7933 

E0 

SE 


BNE 

LP2 


0198 

793B 

80 

27 


LDV 

##27 


0193 

793H 

83 

20 


LER 

##20 



793F 

91 

20 

LP4 

STB 

C$20>,Y 


0201 

7941 

88 



BEY 



0282 

7342 

10 

FB 

“ 

BPL 

LP4 


0203 

7944 

4C 

76 00 


JflP 

FINE 


0204 

7947 



ì ■ 




8205 

7347 



jSCROLL VERSO L^fiLTO 


0205 

7947 







0287 

794? 

C9 

33 

VIR5 

CtlP 

##38 

t 

0208 

7349 

DO 

04 


BNE 

VIR6 


0289 

794B 

20 

69 E3 


JSR 

$E369 

ì 

0210 

794E 

60 



RTS 



0211 

794F 



J 



+ 

9212 

73 4F 



;BISRBILITfl IL PR03RPMHP 

0213 

794F 



J 




9214 

794F 

C9 

51 

VIBS 

CNF 

##51 

£ 

0215 

7351 

D0 

03 


BNE 

VIA? 


0216 

7953 

4C 

1B 78 


JNP 

DiS 


0217 

7956 







@218 

7356 



;UPPER 

CASE 


0219 

7956 







0220 

7956 

C9 

41 

VI 87 

CMP 

#$41 

r 


<20 75 B6> GET EVIE 


C20 CC D6) GET PARAMETRO 


= 2 ? 


= 3 ? 

<20 3F E5> ESEGUE SCROLL 


= Q ? 


- R ? 



SXTRflBftSIC. 

«airi 

* PRO. 

0005 



ri or# 

LOG 

COBICE 

13T. 



9221 

7358 

B0 

05 


BNE 

VIR8 

0222 

735R 

R9 

00 


LDR 

«12 

0223 

795C 

8B 

4C E8 


STA SCF3 

0224 

735F 



- 



0225 

735F 



;LOHER 

ORSE 

0226 

795F 



ì 


#$42 

022? 

735F 

C9 

42 

nm 

CMP 

©229 

7961 

ES 

05 


BHE 

VIR9 

©££9 

7363 

R9 

SE 


LEft 

#14 

©230 

7365 

SD 

4C E8 


STB 

SCR 

0231 

736S 



* 


SCHERMO 

0232 

7969 



; MEMORIZZA 

0233 

7969 



■I 

/ 



0234 

7963 

C9 

4D 

VIR9 

CE1P 

#$4D 

0235 

7969 

II© 

20 


BHE 

VIRI© 

0236 

796 C 

18 



CLC 


0237 

756D 

R2 

80 


LBX 

#12S 

0238 

796F 

m 

00 


LBV 

#0 

0235 

7971 

84 

21 


STV 

$21 

9240 

7973 

86 

22 

HO 5 

STX 

$22 

0241 

7975 

R5 

22 


LBR 

$22 

0242 

7977 

E9 

03 


SBC 

#3 

9243 

7979 

85 

01 


STA 

$01 

0244 

797E 

A3 

00 


LDR 

#0 

0245 

797B 

85 

09 


STA 

$00 

0246 

797F 

B1 

21 

NO 6 

LDA 

<$2Ì),V 

0247 

7981 

91 

08 


STA 

<$00>,V 

0248 

7983 

C& 



INV 


0243 

7984 

H0 

F9 


BNE 

N06 

025S 

7986 

ES 



INX 


6251 

7987 

£6 

84 


CPX 

#$34 

0252 

7983 

D0 

E8 


BNE 

N05 

6253 

79SB 

60 



RTS 


0254 

73SC 



} 



6255 

798C 



; CORICA DO 

MEMORIfì 

0256 

798C 



f 



0257 

738C 

CS 

4C 

VIA10 

CMP 

#$4C 

0258 

73SE 

m 

20 


BNE 

Vlfill 

0253 

7399 

18 



CLC 

#123 

0260 

7391 

R2 

80 


LDX 

0261 

7993 

R0 

80 


LBV 

#0 

0262 

7995 

84 

21 


STV 

$21 

0263 

7997 

86 

22 

HO? 

STX 

$22 

W264 

7993 

R5 

22 


LBR 

$22 

8265 

799B 

E9 

83 


SBC. 

#3 

0266 

799D 

85 

01 


STA 

$01 

0267 

793F 

R9 

00 


LBR 

#0 

0268 

79fll 

85 

00 


STA 

$00 

0269 

79R3 

E1 

00 

NOS 

LBR 

($60},V 

0270 . 

79R5 

31 

21 


STA 

C$2i>,V 

0271 

79R7 

C8 



INV 


0272 

73R8 

D0 

F9 


BNE 

H08 

0273 

79RA 

ES 



INX 


0274 

7SRB 

E0 

84 


CPX 

#$84 

0275 

79RB 

B8 

ES 


BNE 

m? 





EKTRREfìSIC- 


0006 



RIGO# 

LOG 

CODICE 

IST, 



0276 

79RF 

60 


RTS 


0277 

79B0 





0273 

79B0 


; SCAMBIO SCHERMO/MEMOR10 

0279 

75B8 


ì 



02S0 

79B0 

C9 58 

Vlflll 

€MP #$53 


0281 

79B2 

D0 28 


BNE VIR12 


0232 

79 F4 

18 


CLC 


0283 

79B5 

02 80 


LDX #128 


0234 

79B7 

06 00 


LDV #0 


0285 

79B9 

34 21 


STV $21 


0236 

793 E 

86 22 

N09 

STX $22 


0287 

79BB 

R5 22 


UJR $22 


0203 

79BF 

ES 83 


SEC #3 


0289 

79C1 

85 01 


STA $01 


0290 

79C3 

,09 00 


LEO #8 


0291 

79C5 

85 00 


STO $00 


8292 

79 C? 

B1 21 

NO 10 

LEO ($20,7 


0293 

79 C9 

35 02 


STO $02 


8294 

79 CE 

B1 00 


LEO <$00> J V 


8295 

79 CD 

91 21 


STO < $2 i > * V, 


3296 

73CF 

R5 02 


LEO $02 


8297 

79D1 

91 00 


sto csee^v 


0293 

79H3 

C8 


INV 


0299 

79D4 

E0 FI 


BNE Noia 


0300 

73D6 

E3 


INX 


0301 

79D7 

E0 34 


CPX #$84 


0302 

79D9 

DS E0 


BHE N09 


0303 

79DB 

60 


RTS 


0304 

79DC 


A 



0385 

79DC 


;STOMPfi SCHERMO 


0306 

73DC 


j 



8307 

79DC 

C9 58 

VI012 

CMP #$50 

> 

8398 

79DE 

F8 03 


BEG PRINT 


6309 

79E0 

4C 79 7R 


JHP VIA13 


0310 

79E3 

20 DI CS 

PRIMI 

JSR $C8Ei 

t 

0311 

79E6 

E0 03 


CPX #3 

t 

0312 

73E8 

30 03 


BMI MIN 


0313 

79ER 

4C 76 00 

- 

JMP FINE 


0314 

79ED 

SE 7R 02 

MIM 

STX $0270 


8315 

79F0 

R9 04 


LEO #4 


0316 

79F2 

85 D2 


STO $B2 


0317 

79F4 

09 FF 


LEO #$FF 

¥ 

$ 

031S 

79F6 

85 B3 


STO $D3 


0319 

79F8 

09 04 


LEO #4 


032S 

79FR 

35 D4 


STO $D4 


0321 

79FC 

02 04 


LUX #4 


0322 

73FE 

20 63 F5 


JSR $FS63 


0323 

7081 

02 ,04 


LDX #4 


0324 

7R03 

20 C3 FF 


JSR $FFC9 


0325 

7A06 

20 0D 70 


JSR PRIMT1 


0326 

7089 

20 E7 FF 


JSR $FFE? 

? 

0327 

7O0C 

60 


RTS 


0328 

7R0B 

09 80 

PRINT1 

LBR #128 


0329 

7R0F 

R0 00 


LDV #0 


Q330 

7R11 

84 21 


STV $21 



= p ? 

(20 75 B6) GEI BVTE 
E v HI MORE DI 3 ? 


<09 6F) 

<26 24 F5> OPEH 
PREDISPOME DEVICE #4 
CLOSE FILES 



EXTPRBHSIC 


PAG. 0967 


RIGA# LGC CODICE IST. 


0331 

7R13 

95 

22 



STR 

$22 

0332 

7R15 

R2 

00 


RIC 

LDX 

#0 

0333 

TRI? 

B1 

21 


HO 11 

LER 

Y 

3334 

7R19 

26 

72 

7R 


JSR 

PRIHT2 

0335 

7R1C 

C9 

4© 



CNF 

#$40 

0336 

7R1E 

30 

24 



BMI 

MI1 

0337 

7R20 

C9 

7E 



CMP 

#$7£ 

0333 

7A22 

38 

25 



BMI 

MI2 

0339 

7R24 

C9 

30 



CJ1P 

#123 

0340 

7R26 

30 

1C 



BMI 

mi 

0341 

7028 

C9 

EF 



CMP 

#$BF 

0342 

7R2R 

30 

22 



BMI 

(113 

0343 

7R2C 

CS 

FF 



CMP 

#255 

0344 

7fì£E 

F@ 

23 



BEQ 

312 

0345 

7R30 

SE 

7E 

02 

BUF 

STR 

$027B,X 

034 6 

7R33 

£3 




INX 


0347 

7R34 

E0 

28 



CPX 

#$28 

0349 

7R36 

F0 

20 



BEQ 

SI3 

0349 

7R38 

CS 




INY 


S350 

7R39 

m 

m 



BNE 

Non 

0351 

7R3E 

E6 

22 



INC 

$22 

0352 

7A3B 

A5 

22 



UDR 

$22 

0353 

7R3F 

C9 

84 



CNF 

#$84 

0354 

7R41 

D0 

B4 



BNE 

H011 

0355 

7R43 

60 




RTS 


0356 

7344 

69 

40 


MI 1 

RDC 

#64 

0357 

7M46 

4C 

38 

7fì 


JMP 

BUF 

0353 

7349 

69 

30 


NI 2 

RDC 

#128 

0359 

734B 

4C 

30 

7R 


JMP 

BUF 

0360 

7R4E 

E 9 

40 


MI 3 

SBC 

#64 

0361 

7R58 

4C 

30 

7fì 


JMP 

BUF 

■9362 

7R53 

fìS 

EF 


312 

LDR 

t$BF 

0363 

7R55 

4C 

30 

7R 


JMP 

BUF 

0364 

7R58 

39 

6E 


313 

LBA 

#13 

0365 

7R5A 

9Ii 

7B 

02 


STA 

$02?B,X 

0366 

7R5D 

£3 




INX 


036? 

735E 

R9 

80 



LBR 

#0 

0363 

7R60 

9D 

7B 

02 


STR 

$027E,X 

0369 

7363 

34 

00 



STV 

$00 

0370 

7R65 

R3 

7fì 



LDR 

#$7fì 

0371 

7367 

R0 '02 



LBV 

#2 

0372 

7R69 

20 

1D 

BB 


JSR 

$BB1B 

6373 

7R6C 

R4 

00 



LBV 

$00 

0374 

7R6E 

CS 



■% 

IHV 


0375 

7R6F 

4C 

15 

73 


JMP 

RIC 

0376 

7R72 

C9 

S9 


PRINT2 

CMP 

#123 

0377 

7R74 

30 

02 



BMI 

m 

0378 

7R76 

E9 

30 



SBC 

#123 

8373 

FR7S 

60 



MI 

RTS 


0380 

7R79 




j- 



0381 

7R79 




; DISEGNA CORNICE 

0382 

7R79 




J 



0333 

7R79 

C9 

43 


VIR13 

CMP 

#$43 

0334 

7R7B 

F0 

83 



BEQ 

COR 

0335 

7R7E 

4C 

76 

00 


JMP 

FINE 


; PREDISPOSIZIONE CARATTERE 


J <20 1C CFO-PRINT STRINGA 


J = C ? 



EXTRfiBfiSIC.. 


.-PRO, 

0003 



Riom 

LOG 

COFICE 

IST. 



0336 

7RS0 

20 

FI CS 

COR 

JSR 

$C8D1 

0337 

7R33 

86 

21 


STX 

$21 

0388 

?RS5 

R3 

00 


LBfì 

#0 

038S 

7RS7 

05 

00 


STR 

$00 

8390 

7RS9 

R3 

S0 


LDR 

#S80 

0331 

7RSE 

85 

01 


STR 

$01 

0332 

?mn 

R2 

17 


LBK 

#23 

0333 

788F 

R0 

00 

LP3 

LDV 

#S 

0334 

7R31 

R5 

21 


LDfl 

$21 

S335 

7R93 

91 

30 

LP9 

STR 

<$0)A' 

0386 

7R95 

GB 

„ 


IHV 


0397 

7036 

CS 

28 


CPV 

#40 

0338 

7R93 

D0 

F9 


BNE 

LP9 

0333 

7R98 

E0 

17 


CPX 

#23 

0400 

7R9C 

D8 

2i 


BNE 

OUT1 

U4S1 

7H9E 

R0 

se 

LP10 

LDV 

#0 

0402 

7flfì0 

18 



CLC 


0403 

7RR1 

R5 

00 


LDFf 

$0 

6404 

?RR3 

63 

23 


RFC 

#40 

0405 

7fifì5 

35 

00 


STR 

$0 

0406 

7RR7 

30 

02 


BCC 

CLR 

8407 

7RR9 

E6 

@1 


INC 

$01 

0409 

7RRE 

R5 

21 

CLR 

LFfì 

$21 

0409 

7RRD 

31 

m 


STR 

<$ 0 >,v 

0410 

7RRF 

m 

27 


LDV 

#33 

S4 i 1 

7RFI 

91 

00 


STR 

<$0> j V 

0412 

7RB3 

CR 



B£X 


9413 

7RB4 

D0 

E8 


ENE 

LPI0 

0414 

7RE6 

R5 

00 


LBfi 

$0 

0415 

7RB8 

69 

28 


RFC 

#43 

0416 

7RBR 

35 

30 


STR 

$0 

041? 

7RBC 

4C 

3F 7R 


JMP 

LP3 

3413 

7RBF 

40 

76 00 

OUT1 

JMP 

FINE 

0413 

7RC2 




-END 

ERRORI 

= 0000 





TRE, SIMBOLI 






VRLORE 

SI MB. 







; <28 75 D6> GEI BVTE 
; E LO MEMORIZZR 


BUF 

7R30 

CLR 

7HRB 

COR 

7R8S 

DIS 

781F 

FINE 

0076 

LP 

7377 

LPl 

7873 

LP10 

7A9E 

LP2 

7929 

LP3 

732D 

LP4 

793F 

LP8 

7R8F 

LP3 

7R33 

MI 

7R73 

MU 

7R44 

MI2 

7R49 

MI3 

7R4E 

MIN 

73ED 

NO 

7845 

NOI 

7851 

NO IO 

73C7 

NOI 1 

?R17 

N02 

7S65 

N03 

786D 

N04 

7S9C 

NO 5 

7373 

N06 

737F 

NO? 

7937 

N08 

73R3 

NO 3 

73BB 

NOTR 

E84S 

OTTAVA 

E84R 

OUT 

7349 

CUTI 

7RBF 

PREP 

782D 

PRIMI 

79E3 

PRIMI1 

7RSD 

PRINT2 

7Fl72 

RE PI 

78 CI 

REP2 

7SCD 

REPERÌ 

78B2 

RIO 

7R15 

SCR 

ES4C 

SI 

735F 

SII 

7312 

SI2 

7R53 

SI3 

7R58 

STRRT 

7300 

STOP 

78EE 

SUB 

7SE3 

SUONO 

E34B 

TEST 

7§54 

VIA 

7838 

VIRI 

7S3F 

VIR10 

79SC 

VIR11 

79B0 

VIRI 2 

79DC 

VIR13 

7R79 

VIR2 

78DF 

VIR3 

79FD 

VIR4 

7919 

VIR5 

7347 

VIR6 

734F 

VIR? 

7356 

VIR8 

795F 

VIR9 

7363 






FINE RSSEMELER 



SYS ■ (4) 


e quindi 


M 7 8 00 7&AO 

che fara T apparire sullo schermo una prima parte di memoria da 
modificare- Il metodo di modifica di memoria e T quello di risalire con 
il cursore e modificare i vecchi contenuti con quelli riportati nella 
lista. Ad ogni fine riga modificata convalidare con RETURN, Proseguire 
infine con M 78A8 ?nnn t fino ad arrivare al termine in TACI. 

Dopo aver eseguito queste operazioni, prima di eseguire la SYS <30720) 
e ' bsne salvare, sempre in modo TIM, il programma in LM con il sistema» 

S 11 EXTRA BASIC" ,01,7800, TACI 

* 

se il supporto dì salvataggio e f la TAPE CASSETTA, méntre; 

5 "EXTRA BASIC",08,7800,TACI 
se siamo possessori di unita T disco. 

Per uscire dal TIM battere la lettera 1 e quindi.RETURN* 

N,B,: Nella lista in LH tutti i dati sottolineati sono quelli che 
devono essere cambiati con i rispettivi valori (BASIC 3-0) posti fra 
parentesi nel listato in Assembler* 


10 1 = 30720 : K = I 

100 FRINT «CCLR1E2 DOWN 3 ATTENDERE PREGO" 

110 READ A$: IF A$ O ”-1" THEN 140 

120 PR1NT "E2 DOWN ] ESEGUI PER ATTIVARE : SYS("K IT ) ,T 

130 END 

140 A 1$=LEFT$(A$,1) 

150 A2$=RIGHT$(A$,1) 

160 IF A1S é "A" THEN 180 
170 A1§=STR$(ASC(ÀI$)-55) 

180 IF A2$ é T, A" THEN 200 
190 A2$ = STR$(ASC(A2$}-55) 

200 A = VAL( A1 $ ) * 1ó+V.AL (À2$ ) 

210 IF ACO OR A>255 THEN 240 
220 POKE I, A : 1 = 1 + 1 
230 GOTO 110 

240 FRINÌ "BYTE "I ir s "A' 1 ???" 


250 

STOP 




260 

DATA 

A9j 

*IC,85,70,A9,2D 

,85,71 

270 

DATA 

A9, 

78,65,72,A9,77 

,85,35 

260 

DATA 

- * ! 



290 

DATA 

* * ] 

* * I 

P * ■ f ' ' 

300 

DATA 

m « ji 

*,, ecc, eco , 

, * * I * * 

310 

DATA 

, * j 

* * t 

f * * J ■ * 

320 

DATA 

* * j 



330 

DATA 

V * J 

'*»■**■»*'! *'7** 


nnn 

DATA 

76, 

1 

O 

O 









7800 

83 

4C 

35 

70 

89 

2D 

85 

71 

7808 

89 

73 

35 

72 

89 

?? 

85 

35 

7310 

o5 

31 

R? 

FF 

65 

Sa 

y5 

34 

7313 

46 

FF 

£3 

83 

E6 

85 

78 

89 

7S20 

77 

35 

71 

89 

m 

85 

ì ^ 

20 

7823 

E3 

78 

^0 

FF 

.m 

SE 

90 

Gy 

7830 

m 

ED 

Gl 

01 

C3 

23 

D0 

10 

733S 

BD 

02 

01 

85 

OS 

PS 

09 

E6 

7840 

7? 

DÙ 

02 

E6 

73 

4C 

54 

78 

7848 

HE 

90 

33 

E6 

77 

Bg 

02 

E6 

7858 

78 

40 

76 

00 

80 

@s 

£1 

77 

7858 

C3 

43 

F0 

03 

40 

76 

SS 

ES 

7860 

77 

BÙ 

32 

E6 

— 

1 

B1 

11 

ì r 

E6 

7868 

77 

B0 

32 

E6 

78 

C9 

49 

B8 

7870 

17 

82 

3S 

8G 

00 

34 

01 

36 

1 ■_> 1 

02 

B1 

01 

49 

83 

91 

01 

C8 

7830 

DS 

F7 

E8 

E0 

84 

B0 

F0 

60 

7883 


23 

D0 

13 

20 

y4 

BD 

,20. 

7833 

2D 

69 

20 

22 

£7 

98 

?0 

T - - i 

ti 

7S38 

B7 

110 

01 

60 

4C 

76 

08 

89 

7380 

26 

E0 

30 

78 

89 

32 

35 

38 

7883 

89 

78 

85 

91 

89 

01 

gg 

FF 

78 £0 

58 

60 

85 

97 

65 

FD 

F0 

09 

78B8 

35 

FB 

89 

18 

85 

FE 

4€ 

55 

78C0 

E4 

C8 

FF 

Ftì 

F9 

85 

FE 

F0 

7303 

04 

OS 

FE 

DU 

Fi 

C6 

FF 

D0 

78H0 

Eri 

89 

02 

85 

FF 

89 

00 

65 

73B9 

97 

89 

02 

35 

83 

B0 

BF 

C9 

78E0 

4E 

E© 

IR 

8y 

55 

85 

9tt 

83 

78E8 

E4 

85 

91 

89 

10 

S5 

FB 

89 

78F0 

00 

8H 

4 E 

E 8 

SD 

48 

ES 

SB 

78 F8 

48 

E3 

85 

01 

60 

C9 

53 

B0 

7808 

13 

89 

10 

SU 

4E 

E3 

20 

B1 

7308 

C3 

E4 

31 

F0 

85 

S6 

01 

SE 

7310 

48 

E3 

20 

27 

09 

8E 

43 

E3 

7318 

60 

69 

ò'i 

D0 

2h 

83 

2'ó 

i34 

7320 

22 

80 

00 

84 

20 

83 

BF 

82 

7923 

3^5 

Oi3 

86 

21 

36 

23 

B1 

20 

91 

7930 

22 

88 

CB 

FF 

B0 

F7 

08 

E0 

7933 

7F 

DÒ 

EE 

80 

27 

89 

2G 

91 

7940 

20 

38 

10 

FB 

40 

76 

00 

69 

7948 

33 

D0 

04 

2G 

63 

E3 

60 

6? 

7950 

51 

DO 

03 

4t: 

1B 

7y 

C9 

41 

7958 

D0 

05 

89 

6C 

8B 

4C 

ES 

C3 

7360 

42 

D0 

05 

89 

SE 

3B 

46 

E8 


7368 

63 

4B 

DG 

20 

13 

R2 

80 

80 

7970 

08 

34 

21 

36 

■-v 

ìi 

85 

22 

E9 

7973 

03 

y5 

01 

89 

00 

85 

80 

Bl 

7380 

21 

91 

00 

63 

DO 

F9 

ES 

E@ 

7988 

84 

DG 

E3 

60 

09 

40 

350 

2g 

7990 

13 

82 

80 

80 

00 

34 

21 

86 

7998 

22 

85 

22 

E 9 

03 

85 

SI 

89 

79R0 

00 

35 

00 

Bl 

00 

91 

£1 

08 

7988 

m 

F3 

E3 

E0 

54 

Ba 

E3 

60 

79 EG 

C3 

53 

ne 

■70 

ìu_ O 

13 

82 

30 

80 

73B8 

00 

34 

21 

36 

22 

85 

22 

£9 

7900 

03 

85 

81 

83 

00 

35 

06 

BL 

7903 

21 

35 

02 

Bì 

00 

91 

21 

85 

791)0 

02 

91 

00 

03 

110 

FI 

E3 

E0 

73 B3 

y4 

B3 

E0 

60 

63 

50 

F3 

S3 

73 EG 

46 

73 

78 

20 

IH 

03 

EG 

G3 

79E8 

30 

03 

40 

76 

00" 

SE 

78 

G2 

79F0 

89 

04 

35 

B2 

83 

FF 

35 

D3 

79F8 

09 

G4 

35 

D4 

R2 

04 

20 

b3 

7800 

F5 

02 

04 

20 

05 

FF 

20 

GB 

7803 

7R 

26 

E7 

FF 

60 

89 

8G 

80 

7010 

08 

34 

21 

85 

22 

82 

00 

Bl 

7018 

21 

2G 

72 

78 

09 

4 LI 

30 

24 

7020 

09 

7E 

38 

25 

09 

SG 

30 

16. 

7823 

09 

BF 

3u 

22 

09 

FF 

FU 

23 

7830 

3B 

7B 

02 

E8 

E8 


FG 

20 

7838 

03 

DS 

DO 

E6 

22 

85 

22 

OS 

7040 

84 

C0 

B4 

60 

69 

40 

40 

3G 

7R4S 

78 

69 

80 

40: 

30 

78 

E5 

40 

7850 

40 

30 

78 

89 

BF 

46 

3G 

7R 

7858 

89 

0B 

9B 

7B 

02 

E3 

89 

00 

7860 

9D 

7F 

02 

34 

00 

89 

7ft 

m 

7063 

G2 

20 

1B 

BB 

R4 

00 

OS 

40 

7078 

1 ■’_ J 

78 

69 

30 

33 

02 

E9 

SS 

7078 

6G 

63 

43 

FG 

03 

40: 

76 

00 

7880 

20 

DI 

63 

36 

21 

89 

00 

88 

7R88 

m~ 

?i?r 

£0 

35 

Gl 

82 

17 

00 

7098 

00 

85 

21 

91 

00 

08 

03 

23 

7093 

m 

F9 

ES 

17 

BG 

21 

RG 

GG 

7880 

13 

85 

00 

69 

23 

35 

00 

98 

7888 

02 

ES 

01 

85 

£1 

91 

00 

00 

78E0 

27 

91 

tifi 

68 

B0 

E8 

85 

00 

7RE3 

£3 

23 

35 

00 


SF 

78 

40 

7808 

76 

00 








i rem mm$ spostr su tv '■A-€-e -2 i^3-9~?> mm* 

10 PRI NT 11 □" 

20 8=500 

30 POKE32767+fÌ,31 

40 IFPEEKC151;=42TNEHP0KE327S7+fi,32 

41 IFPEEKC151)=26THENP0KE32767+fi,32 =8=8+39 

42 IFPEEK<151)=25THENPGKE32767+8,32;R=R+41 

43 IFPEEK<151;=53THENP0KE32767+R,32 - 8=8-41 

44 IFPEEKCISI >=57THENPQKE3276 7+fì * 32=8=8-39 

45 IFPEEKQ5Ì )=50THENPQKE32767+R, 32'8=8-40 
50 IFPEEKOSl >-4iTKEMPOKE32767+8 * 32 = 8=8+1 
55 IFPEEKU51 >=13THENPOKE3£767+8,32 : 8=8+40 
60 IFR>1000THEN8=8^1@00 

65 IFfì<0TKEN8=8+1000 
70 GOT030 























BASIC 4.0 MEMORY MAP 
Compiled by Jim Buttorfield 

There are some differences between usage betvoen thè 40- and 
88-eoLumn machines* 


He* . 

Decimai 

D-eSCtiptiOn 

0300-3032 

3-2 

U5R, jurnp 

0303 

3 

Search oharactcc 

0004 

4 

Scan-between-quotes £lag 

3*05 

3 

input buffer pointer: l of subscripba 

0005 

6 

Default Din flag 

0*07 

7 

Type r fF-string, 3§ a nuf)ieric 

0*0* 

8 

Type : BG^integer, *0=£loating potnt 

0009 

9 

Flag; DATA Ecanj LIST quote; ffiefnory 

030A 

10 

Subscript Élaq; Ff43{ flag 

000B 

11 

INPUT; $4*=GET ? 59 8=Rt'AO 

0fl@C 

12 

ATN sign/Compariscn Evaluatlon flag 

030D-&&0F 

13-15 

Disk status DSS descriptor 

0010 

16 

Current 1/0 device fot prompt-suppress 

00U-*312 

17-10 

Enteger value {for SYS, GOTO etc) 

0313-3*15 

19-21 

Foiiìters for descriptor stack 

0015-331C 

'22-30 

Deseciptor stackftemp stringai 

031F-33 2-2 

31-3 4 

Utility pointer area 

0023-3327 

35-39 

Product area for multiplication 

G32S-U329 

43-41 

Pointer : Start-of-Basic 

032A-0320 

42-43 

Pointer: Start-of-VarUbles 

0 3 2 C-3 tì 2 D 

44-45 

Pointer: Start-of-Arrays 

002E-032F 

4 6-47 

Pointer: End-of-Arcays 

0330-0331 

48-49 

Pointer: String-storage[moving dova} 

0032-0033 

53-51 

utility string pointer 

0934-0035 

52-55 

Pointer: Limit-of-memory 

0036-0037 

54-55 

Current Basic line number 

0038-0339 

5 6-57 

Previous Basic line number 

003A-003B 

58“S9 

Pointer; Basic statement for CQNt 

&03O003D 

63-61 

Current data line miif.ber 

003E-0O3F 

62-63 

Current DATA addrose 

0340-0041 

64-65 

Input vector' 

&342-U043 

66-67 

Current variabile name 

3044-0045 

6 8-69 

Current variatole address 

§346-0047 

76-71 

variatole pointer for FOR/NFXT 

3048-0049 

72-73 

Y-save; op-save; Basic pointer save 

SNA 

74 

Comparison synbol accuraulator 

§04 B-0050 

75-80 

Mise worJ: area, pointers, etc 

0351-0353 

81-83 

Jump vector for functions 

3354-0050 

84 -93 

Mise riumeric wock area 

035E 

94 

AecuMlj Espónent 

035F-0&62 

95-98 

Accumuli Mantissa 

3353 

99 

Accontili Sign 

3354 

130 

Seties evaluation Constant pointer 

3355 

131 

Accunfl bi-order (overflowj 

0056-0060 

1*2-107 

AccumfSi Sxponentr etc. 

306C 

138 

Sign comparison, Acci! vs >2 

3360 

136 

Acculali lo-ordet { round ing) 

O06E-0tTGF 

110-111 

Cassette touff len/Serios pointer 

§073-0387 

112-135 

CHRGET subroutinej get Basic ehar 

3377-3076 

119-123 

Basic pointer (vitinin sutortn) 

B088-03EC 

136-14* 

Random number seed. 

008O-338F 

141-143 

Jiffy clock for TI and TI? 

3090-3001 

144-145 

Hardware interrupt vector 

3392-3393 

146-147 

brk intereupt vector 

§094-3395 

148-149 

Nftl intertupt vector 

§39 6 

153 

Status word 5T 

§397 

151 

Wbich feey down; 25S«no kty 

369B 

152 

Shlft keyj 1 if depresseti 

S399-&39A 

153-154 

Correctlon clock 

30 9 B 

155 

Keyswitcb PIA; STOP and ftVS flaga 

33 9 C 

156 

Timing Constant for tape 

339 0 

157 

Load=8 P Vetify»l 

339 E 

158 

Nurnber of ebarscters in keybd buffer 

33 9 F 

159 

Screen reverse flag 

30 A3 

163 

IEEE output; 255«character pendlng 

00 Al 

161 

End-of-line-foc-input pointer 

30M-B3À4 

163-164 

Cursor log (row r column) 

33AS 

165 

Ièee output buffer 

30*6 

166 

Key image 


00A7 

167 

0=flash cursor 

B0A3 

168 

Cursor timing count-down 

00A9 

169 

Character urtaci tursct 

flUAA 

170 

Cursor in blink phase 

00AS 

171 

SOT reccived from tape 

00AC 

172 

Input frcra seceen/frora keyboacd 

00AD 

173 

X savo 

00AE 

174 

Kow many open files 

00AF 

175 

Input device, nbrmally 0 

0 00(1 

176 

Output CMD devi ce t normali/ 3 

00 Bl 

177 

Tape charactet patity 

00 03 

17 0 

Byte received flag 

00 53 

179 

Logicai AddreSS tempofary save 

00 54 

ISO 

Tape buffer characterj MLK comnand 

00 55 

131 

File name pointer? MLtó flag, counter 

00 57 

133 

Serial bit court 

00 B9 

185 

Cycle counter 

00 BA 

136 

Tape welter ccuntdown 

0OBB-0 0 3C 

137-188 

Tape buffer pointers, *1 and 42 

OflBD 

139 

Write leader court? ccad passl/2 

00 BE 

190 

Write nfiw byte? read orror flag 

00 BF 

191 

Writq start bit; read bit seq errùr 

00C0-0&C1 

192-193 

Errcr log po intere, patìsl/2 

0flC2 

194 

D-Scan/l-15-Coun t/940=Loa'd/?80 = End 

00C3 

195 

Write leader length: read checkaum 

00C4-B&C5 

196-197 

Pointer to screen line 

0SC6 

198 

Posifion of cursor on above line 

00C7—SOCfl 

199-200 

Utility pointer:' tape T scredi 

00C9-OOCA 

201-202 

Tape end addrs/'End of currcrvt program 

00 CB-ÓtCC 

203-204 

Tape timing constante 

00CD 

205 

fl^direct cursar, else prc-gramfned 

OOCE 

206 

Tape read timer 1 enablcd 

00 CF 

207 

SOT received from tape 

00 DO 

206 

Read charaeter ercor 

DODI 

209 

1 charactqrs. in file nane 

0002 

210 

Currant file logicai addrcss 

DODI 

211 

Current file secondar/ addrs 

0004 

212 

Curront file devico nunber 

00 D5 

213 

Right-hand windov or line margin 

00D6-00D7 

214-215 

Pointer: start of tape buffer 

00 OS 

216 

Line where cursor lives 

00D9 

217 . 

Last key/checksuitt/tnisc. 

00DA-0GDB 

218-219 

File name pointer 

G0DC 

220 

Wiimber Of INSÈRTA cutStanding 

00DD 

221 

Write shift word/read cbaracter in 

SODE 

222 

Tape blocks remaining to write/read 

00 DF 

223 

Serial word buffer 

B0E0-0&F8 

224-246 

{40-colurani Scfeen line wrap table 

D&EO-OOEI 

224-225 

{BB-column) Top, botto™ of vindów 

00 E2 

,226 

{B0-columnJ Left window margin 

00 E3 

227 

{00-column) Limit of keybd buffer 

00 E4 

223 

t Bfl-colurartì Koy repeat flag 

00 FS 

225 

{80—coluranj Repeat countdown 

s&e-s 

23 0 

{flfl-colu-inrtj New key marker 

09E7 

231 

(Sfl-eolumn} Cbime time 

00 E0 

232 

ÌB0-colU[tinJ HOKE count 

0OE9-60EA 

233-234 

(BD-column) input vector 

00 Efl-00 EC 

235-236 

{80-column} Output vector 

0OF9-00FA 

249-250 

Cassetto status, Il and 12 

00FE-00FC 

251-252 

HLM pointec/Tapo start addrcss 

00 FD-00FE 

253-254 

HLH, DOS pointer, mise* 

0I0O-010A 

256-266 

STRS work arca, $LM work 

0J03-0I3E 

256-318 

Tape read error log 

0JL0O-0IFF 

256-511 

Processor stack 

0200-0250 

512-592 

rtLH work area? Input buffer 

025I-O25A 

593-602 

File logicai address table 

025^0284 

603-612 

File dqvice numbor table 

B265-026E 

613-622 

File secondary adda table 

020F-927B 

623-632 

Keyboard input buffer 

027A-0339 

634-825 

Tape 11 input buffer 

833A-03F9 

626-1017 

Tape 12 input buffer 

033A 

826 

DOS character pointer 

3 33 0 

827 

DOS drive 1 flag 

B33C 

828 

DOS drive 2 flag 

633 D 

829 

DOS length/write flag 

03 3 E 

830 

DOS ayntax flaga 



033F-B340 

0341 

0342-0352 

0353-8388 

03EE-03F? 

03rA“S3FB 

0JFC 

040B-7FFF 
aeeff-gSFF 
6000-87FF 
908B-AFFF 
S0 00-DFFP 
E003-B7FF 
EB10-E3I3 
E820-E323 
E34fl-Ea4F 
ER B0-E881 
F000-FFFF 


831-532 

833 

B34-B50 

BS1-Q96 

1006-1013 

1018-1019 

1020 

1024-32767 

3276B-3379Ì 

32768-34015 

36864-45055 

45056-57343 

57344-55331 

55408-55411 

58424-55427 

59456-59471 

59520-59521 

61440-65535 


DOS disk ID 

DOS command string ccunt 
DOS file (WM bufisi: 

DOS ceiindiand strìng buffer 
[SO-column} Tab stop table 
Monitor extension vector 
IEEE timeout defeat 
Avallatale RAM includine expaneion 
( 4B-colu;n?n]l Video RAM 
(80-colunn) Video BAH 
Avallatile KOH ejtpanaion area 
Basic, DOS, Macinine Lang Monitor 
Scceen r Keyboard, Interrupt programa 
PIA 1 - Keyboard I/O 
PIA 2 - tEEE-480 I/O 
VIA - I/O and timers 
(80-co Iman) CRT Controller 
Reset, I/O bandiera. Tape routinas 


PET 4.0 ROM ROUT1NES 

Jim ButterfieJd 

Toronto 

The 40-eharacter and 80-character machines are thè sane 
exccpt fot addresses SE00Ef-?E7FE* 

Tbie ffLap ghowa where various routines Ile* The ficai address 
is nofc necessarily thè propor entry point for thè routine* 
Similacly, many routine:* teguire reglstee setup or data 
preparatlon boforc calling* 

Deecription 

B300-D065 Action addresses for primary kcywcrds 

B066-B093 Action addreeses for functions 

E094-B0EU Hietarchy and action addreases for operators 

B0B2-B20C Tabla of Basic keyworda 

B20D-B321 Basic messages, raostly ertor messages 

&322-B34F Search thè otack for POR or GOSUB activity 

B350-8392 Open up space in memory 

b 393-B39F Testi stack too deep? 

B3A0-B3CC Check avallatale memocy 
E53CD Send cann&d error message, then i 

B3FF-B41 1 Watn starti walt for Basic comcnand 
B41F-B4B5 Handle new Basic line input 
S4B6-B4E1 Rebuild qhaining of Basic linea 
B4E2-B4FA Receive line fron Keyboard 
B4FB-B5A2 Crunch keywords ìnfco Basic tokens 
E5A3-B5D1 Search Basic for given line number 
B5B2 Perforili NEW, andr 

B5EC-B&21 Perforiti CLR 

B622-B62F Reset Basic axecutlon to start 

B63B-BSDD Perforiti LIST 

B6DE-B7B4 Perforiti FOR 

B785-B706 Execute Basic statement 

B7B7-B7C5 Perform RESTOSE 

B7C6-B7EP Perfora STOP or END 

B7EE-B&07 Perform CORT ' 

3808-B812 Perform RUM 
B813-B82F Perform GOSDB 
aaiB-BSSc Perfori* goto 
B 85D Perform HETBRN, then: 

B8B3-BB98 Perform DATA* skip statement 
BB91 Scan for ne'xt Basic statement 

B894-B8B2 Scan for next Basic line 
BBB3 perform IF, and perbapsi 

B9C6-B8D5 Perfori* REK s skip Uno 
B8D6-B8P5 Ferform ON 
B0FG-B82F Aceept flxed-polnt number 
B930 -baQ 7 Perform LCT 
BAB8-BASD Perform PRINTl 
BA8B-BAA1 Perforila CMD 
BAA2-BB1C Perfori* FRI NT 
BB1D-BB35 Pfint fltrtng-from marnar y 


DEj3ft~BH4S Print single format character 

Bfl4C^Bi379 Mandle bad input data 

BB7A-BBAJ Perforiti GET 

0BA4'DBBD PerEorm INPUTI 

B0BE“BQF4 Perforili INPUT 

BBF5-BCÉFÌ Prtìmpt and receive input 

BC02-BCFS Perforiti READ 

BCF7“SD10 Canned Input orror massages 

3D19-BD71 Perforili NEXT 

&D72^bd 97 Check type miematch 

&U9A Evaluate expression 

BES9 Evoluite expressicn within parenthesea 

SEEP Check pafenthesis, comma 

BF0&-B-F0B Syntax error exit, 

DF8C-C346 Variatile name setup 
C047-C0A5 Set up function references 
C08G-C0B5 Perforili OR, AMD 
C0B6-C11D Perforiti comparisona 
G41E-C12A Perforiti DIM 
CIZB-^CIBF Search for variable 
C1C0-C2C7 Create new variatile 
C2C8 j C2d 8 Setup array pointer 
C2D9-C2DC 3276B in floating binary 
C2Dfr~C2FB Evaluate integer expression 
C2FC’C4A7 Find or make array 
C4AB Perfora FRE, and; 

C4BC-C4C0 Convcrt fixed-to™floating 
C4C9~C4C£ Perforiti POS 
C4CF-C4DB Check nOt Direct 
C4DC-C50? Ferform DEF 
C50A-CS1C Check FHx syntax 
C51D-C5BD Evaluate FNx 
C58E~C59D FerfOfm STR5 
C59E-C&AF Do Stfiflg vCCtOf 
C5B0-C61C Scan, set up string 
CG1D-CG69 Allocate space for string 
C66A“C74B Garbage collection 
C74F-C78B Concatenate 
C7BC-C7B4 Store string 
C7 h 5^CS1B Discard unwanted string 
CB11-C821 cioan descriptor stack 
CB22-C8Ì5 Perform CHRS 
CS3<s-ces 3. Perforai LEFTS 
C0G2~C96C Perforili RIGHTS 
CB6D-CS&S Perfori* MIO? 

CB97-CSB1 Pulì string data 
C8B2-C3B7 Perforiti LEM 
C8BB-C3C0 Switch string to nome rie 
C3CÌ-C8D0 Perforili ASC 
C8D1-C0E2 Get byte parametet: 

C3Ed-C92& perform VAL 

C921-C92C Get tvo parametera for POKE or WATT 

C92D-C942 Convert f loating™tO“f ixed 

C943-C959 Pocform FEEK 

C95A-C962 Perforili POKE 

C9C3-C97E PerÉOrm WAIT 

C97F-C985 Add 0.5 

C9SS Perforiti sgbtcaction 

C998-CA7C Perforai. addition 

CA7D-CAB3 Compiamene accurati 

CAB4-CA00 Overflow exit 

CAB9-CAF1 Kultiply-a-byte 

CAF2“CBlF Constante 

CB20 Perform LOG 

CB5E-CBC1 Perform multi pi tea ti ori 

CBC2-CBEC Unpatk memory into accum*2 

CBED^CC09 Test * adjust accumulators 

CC0A"CC17 Handle overflow and underflow 

CC18-CC2E Multiply by 10 

CC2F-CC33 10 in fleating binary 

CCS* Divide by 10 

CC2D Perform divide-by 

CC4S-CCD7 Perform divide-into 

CCDB-CCFC Unpack memoty irato accurati 

CCFD-CD31 pack accurati into memory 

CD32-CD41 Nove accurat2 to #1 



CD42-CD50 Move acculali to 12 
CD31-CD60 Round accintili 
CD61-CDSE Get accumll Sign 
cuer-coSD Pec£orm SGU 
CDBE-CD90 Perforili ABS 
CD91-CDD0 Compire accumlJ, to memory 
CDOl-CEOl Flcating-to-fixed 
CE02-CÉ2B Perform 3HT- 

CE29-CEB3 Convert string to floatìng-point 
CEB4-CEE3 Get new ASCII digit 
CEES^CSTB Constante 
CF73 Print IN; then: 

CF7F-CF92 Print Basic line t 

CF93“D0C6 Con ve et flOating-poìnfc to ASCII 

DBC7-D1B7 Constante 

JJlES Perform SQR 

0112 Perforiti power function 

OÌ4B-D155 Perform negation 

DISSODISI Constants 

D1S4-D1DS Perform exf 

D1D7^D223 SerieS evaluation 

D221-D22B RHD con3tarìtS 

D229“P2B1 Perform RND 

D2S2 Perform. COS 

D2B9-D2D1 Perform SIN 

D2D2-D2FD Perform TAN 

D2fe^P 32B Constants 

D32C-D35B Perform ATN 

B35C-D390 Constants 

D399-D3S5 CflRGET sub fot zero page 

D3B5-D471 Basic cold start, 

D472-D71G Kachir.fi Language Monitor 
D717-D7AB HLM subiOUtineS 
D7AC-DB02 Perform RECORD 
DB03-D837 Disk.parameter checks 
D03-B-D872 Duiiuny disk control messages 
Ufi73-DB15 Perform tATALOG or DIRECTORi 
P91A-D92E Output 

D92F-B941 Find spare secondar/ addresa 

D942-D97Ó Perforiti, DOPEH 

D977-D990 Perform APPEHD 

D99I^D9DI Get disk status 

D9D2-DA0G Perform EJEADER 

DA07-DA30 Perform DCfOSE 

DA31*DAS4 Set up disk record 

DAGS-DA7D Perforili CQLLECT 

DA7E-DAA6 Perform BACKUP 

DAA7-DAC6 Perforiti COPY 

DAC7-DAD3 Perform CONCAI 

DAD4-DBSC Insert command string values 

DB&D-DB39 Perform DSAVE 

DB3A-DB6S Perform DLOAD 

DB65-DS98 Perform SCRATCH 

DB99-DB9D Check Direct command 

DB9E-DBD6 Query ARE YOU SURE? 

DBD7-DBE0 Print BAD DISK 
DBEl-DBF9 cieas ds$ and ST ' 

□BPA-DC67 Assemble disk command string 
DCSB-DE29 Parse Basic DOS command 
DE2C-DE40 Get Device numbet 
DE49-^DE&0 Get file name 
De 07’-DE9C Get smail variable parameter 

** M f n try pclnts only for E000-E7FF ** 

Register/screen'initialiaation 
Input from keybbard 
input fron screen 
Output cbaracter 
Main Interrupt entry 
Interrupti clock, cur3or, fceyboard 
Ekit from Interrupt 

** 

File measages 
Send 'Talk* 

Send 'Eisten 1 

Eend IEEE command Character 
Send byte to IEEE 


EBBE 

E0A7 

EI1$ 

£2 0 2 
E442 
E4S5 
EG0D 

É * 

F0B0-F0D1 

F0D2 

F0D3 

FfiD? 

F109-F142 


FH3-F150 Send byte and dear ATM 
FlSl-PlfiB Option; timeout or wait 
F16C-F1SF DEVICE HOT PRESENT 

F179-FÌ64 Timeout on read, clear control linea 

F1H5-F192 Send eanned file messagc 

F193-FÌ9D Send byte, clear control linas 

FlSE^FlAD Send normal (defercedi IEEE Chat 

FlAE“FlBF Drop IESE device 

riC0-F2fJ4 Input byte freni IEEE 

FÌ0S-FZ14 GET a byte 

F215“F265 INPUT a byte 

F2&6-F2A1 Output a byte 

F2A2 Abort filefl 

F2A6-F2C0 nestore default I/O devloea 

F2CI-F2DC find/aetup file data 

F2DD^F334 Perforili CLOSÈ 

F335-F342 Test STOP key 

F343-F346 Action STOP key 

F349-F350 Send nsssage ìf Direct mode 

F351-F355 Test if Direct mode . 

F3S6-F490 ProScan load subroutine 

F40Ì-F448 Perforiti LO AD 

F449-F46G Print SEAACRI&JG 

F46D-F47C Print LOADING OC VERIFY1NG 

F47D-P4A4 Get Load/Save parameters 

F4A5-F4DÌ Send'itane to IEEE 

F4D3^F4F5 Find specific tape headec 

F4F6-F5BC Perforiti VERIFY 

P5BD“FS5P Get Open/Close par Mietere 

FS60-F5E4 Perfora OPEN 

FSES-F61& Find any tape header 

F&19-PÈ7A Urite cape header 

FS7B^F<i94 Get start/end addrs from header 

FG95-F&AA Set buffer address 

F6AB-FSC2 Set buffer start & end addea 

FGC3-F6CB Perform SYS 

F6CC-FGDC Set tape vrita start & end 

F6GD-F767 perforili SAVE 

F768-F7AE Update clock 

F7AP-F7FD Connecrt input device 

F7FE-F84A Connect output devine 

F84B^FtìSfi Bump tape buffer pointer 

FS57-F879 Wait for PLAY 

FSTA^FBBB Test cassette switch 

F68C-F099 Walt fot RECORD 

F39A Inibiate tape read 

FECE Inibiate tape iprite 

F0EG-F92A Common tape I/O 

F92B^F934 Test 1/9 complete 

F93S-F944 Test STOP kqy 

P94S-F975 Tape bit timing adjust 

F37S-FA9B Read tape bits 

FA9C~FBBA Read tape characters 

FBBB-F3C1 Reset tape tead address 

FBC4-FBCS Flag error into ST 

FBC9-FBD? Reset counterà £or new byte 

FBP9^FRF3 Wrlt j a bit to tape 

FBF4~FCÉ!5 Tape urite 

FCB6-FCBF Urite tape leader 

FCCS-FCDA Terminate tape; restore interrupt 

FCDB-FCEA Set interrupt vector 

FCEB-FCF0 Turn off tape mofcor 

FCF9-FDBA ChecStsum Calculation 

FDSB-FD15 Advancc losd/save pointer 

FD1G-FD4B Power-ori Reset 

PD4C-FDSC Table of interrupt vectuffi 

**■jamp tablet ■* 

F F93-FF 9 £ CON CAT,DO PEN,DCLOS E,RECORD 
Fm-FFAA HRADER,COLLECT, BACKUP, COPY 
FFAB-FFRtì APFEND,DSAVE,DLOAP,CATALOG 
FFB7-FFBC RENANE,SCRATCH 


FFBD 

Get disk statue 

FFC0 

OPEN 

FFC3 

CLOSE 

FFC& 

Set input device 

FFC9 

Set output device 



FFCC 

Restore default I/O devices 

FFCF 

INPUT a byte 

FFD2 

Output a byte 

FFD5 

LOAD 

FFDfl 

SAVE 

FFDB 

VERIFY 

FFDS 

svs 

rm 

Test stop fcey 

FFE4 

<3ET byte 

FFE7 

Abort all files 

FfEA 

Update clock 

FFFA-FFFF 

4{acd vqctors! NMI, Reset/ 


Fé-risiamo di aver -fatata u+i la r ì tritando rer ir taro la marra di 

memoria del BBSIC versione 4,0 valida rer i FET-CÉM modelli della serie 
400S e Sy00.< nonché y rer la serie -3000 a. cui sono state cambiate le 
ROM. 

Abbiamo sensato di ri portare in ori u inala tale Marra in guanto* le 
descrizioni riportate in lingua inglese sono estremamente chiare sia 
per ohi si accinse da ^oco al lirtaua-ayìo macchina.' e tanto meno per chi 
e'' aia un rc y smaliziato. 

Un sentito ringrazi amento a Jini Eutterfield che ha redatte con somma 
maestria e inimitabile esperienza ^tuesta tabella di estrema utilità - '. 



A PROPOSITO DI "RAGNO NERO"_ 


Ringraziamo quei lettori che oì hanno fatto notare che il programma, 
sul loro FET, non girava a dovere. 

RAGNO NERO, infatti, e 1 ' stato creato per il BASIC 3-0 nuove K0M r e 
necessita di alcune correzioni per poter funzionare sul BASIC 4*0 o con 
le vecchie ROM del BASIC versione 2*0, 

Ecco le modifiche da apportare al programma per le varie vereioni di 
BASIC* 

Vecchie ROM: 

a ■ +■ ai +a +*■ m p* ■■ ■■ ■■ ■ ■ ** 

Oltre alle correzioni specificate nell r articolo, sostituire come segue: 

POKE 216 —è POKE 245 

POKE 198 —è POKE 226 
SYS 57949 —è SYS 58843 


BASIC 4,0: 

Sostituire SYS 57949 con SIS 5?4?1 


A questo punto non ci sono piu 1 problemi. Consiglio dì copiare 
fedelmente, almeno la prima volta, le righe di intestazione 50^80, 
poiché* inizialmente il programma si basa proprio su queste righe per 
il movimento del ragno e per il suo deprecabile comportamento* 







di Gloriano Rossi 


In alcuni oasi, durante le elaborazioni di dati, e r necessario poter 
paragonare una determinata stringa di caratteri con altre già 1 
residenti in memoria. 

Questa T faccenda * potrebbe sembrare, in una prima analisi, molto 
semplice. 

Prendo la variabile X$ e■la confronto con n variabili fino a che non 
trovo quella uguale. 

Tutto ciò" e T in parte vero. Infatti se la variabile X$ risulta essere 
piu 1 corta rispetto a quella che eventualmente potrebbe essere uguali, 
il BASIC, non ne riconosce 1 1 uguaglianza. 


100 

110 

120 


130 

148 

150 

160 

170 

180 

130 

200 

210 

220 

23S 

240 

250 

260 

265 


REM* ROUTINE UGUALE E 


SIMILE 


REM* 

REM* 


HI GLORIANO ROSSI 
POCKET GROUP 


GLORIANO ROSSI 1 ' 
A$C2>=“ROBERTO SOZZAMI" 
MASSIMO ROSSI" 
ftK4>= ,r PIPP0 PORROLINI" 
Fi#<5>=“PIPP0 FILIPPINI" 
fW<6>=" BRUNO BRAZZOELIRO" 
fif(7>="FIORENZO” 
fì#(S>="GIOVANNI" 

A$(3)="GIORGIO" 

REM" 


I2KN * 


270 INPUT“QUALE NOME "JKf 


La prima parte della routine proposta (^Riconosce 1 1 uguaglianza"} serve 
proprio per riconoscere l'uguaglianza fra* la stringa X$ (riga 270) e 
la tabella A$(n), 


230 

230 


REM* RICONOSCE EGUAGLIANZA 


310 FORl^iTON 

320 irLEFTI<Rf<I>,LEN<^)>=X$THENPRlNTR$a> : I=N+1 P^ì 
330 NEKT 

340 IFP-ÌTHEN450 


In riga 320 viene esaminata la parte dell’elemento della tabella A$(n) 
per una dimensione pari alla lunghezza uguale a quella dì 'x$_ 





Quando si e' trovato ohe esiste la condizione di ugualglìansa si 
interviene eseguendo la visualizzazione e quindi si esegue una forzata 
uscita dal loop (1=1+1)» 

Il programmino riportato e' stato congegnato in maniera tale che se non 
si verifica l’uguaglianza ricercata va ad eseguire la seconda parte 
della routine, per ovviare ciò’, in caso di avvenuto accoppiamento, si 
forza il numero 1 nella variabile p/ Ciò' fatto, in riga 340, se P 
sara’ uguale ad 1 si uscirà’ dalla routine. 

Nel caso contrario, cioè 1 nessun accoppiamnto e' stato possibile, si 
prosegue con la seconda parte del programma. 

Ecco quindi che si può' presentare 1'oppurtunita T di confrontare il 
contenuto della variabile sempre con gli elementi della tabella 
A${n) con lo scopo di individuare quale elemento e’ piu 1 simile a 
quello noto. 


Per risolvere questo probiemino viene presentata la seconda parte della 
routine in oggetto: "Riconosce il piu T simile". 


350 REM********##*#*####**^*.**^*^^** 

3£0 REM# RICONOSCE IL FILK SIMILE * 

370 * 

380 F0RR=1T0M 
390 FORI - ITijLEF'KXÌÙ 

400 iFMlIif CMf VE ■ .1.1 j-MIItfOtt ■ I - I : THEMh 

ilo me;-=:t-nekt 

420 FOFKTGN 

430 lFfi(l»R(X>THEhl^I 

440 HEKT *PRIMTfì$0<> 

450 END 



L’esame viene eseguito chiaramente su tutti gli elementi della tabella 
A$<n), 


Carattere per carattere viene confrontato ogni elemento della tabella 
A$(n) e se si incontra una uguaglianza di carattere si incrementa 
l’elemento corrispondente della tabella numerica A(n), 


Questo procedimento viene eseguito per ogni carattere di ogni elemento 
della tabella, ogni volta per una lunghezza pari alla lunghezza della 
variabile X$* 

Terminato questo tipo dì esame* si controlla quale elemento ha meritato 
piu T furiti 11 * e proprio questo elemento sara ' oggetto della 
evidenziazione in edit di schermo, 

L T attualizzazione di questa routine potrebbe trovare numerose 
applicazioni, una delle quali potrebbe essere quella dì sviluppare un 

gioco tipo ”E f arrivato un bastimento carico, carico di_ 11 . 

Si dovrà 1 incrementare ad ogni risposta la tabella A$(n) con il nuovo 
elemento riconosciuto disuguale- E r chiaro che sìa la tabella A$(n) e 
A(nJ dovranno essere opportunamente definite cón r una DIM in quanto, si 
sa, quando gli elementi superano il numero di 10 occorre ricorrere a 
questa facilita' BASIC, 

Provate, divertitevi e.., mandate tranquillamente i vostri elaborati. 
Il migliore verrà 1 certamente pubblicato su POCKET PET, 






Cosa e’é 
distro il 

di Massimo Robsi 

BASIC 


Vi siete mai chiesti., che cosa succede, quando premete il tasto di RETURN, 
dopo aver scritto un comando, o una riga di programma?. Forse non vi 
sembrerà 1 possibile,, ma si potrebbe parlare per ore di questo argomento, e 
pensiamo che anche un solo accenno superficiale ad esso, possa essere 
interessante per tutti gli utilizzatori del FET* 

Vediamo insieme, perciò 1 , che cosa avviene, quando premiamo il fatidico 
tasto di RETURN* 


Vi sono due possibilità* differenti: se all*ìnizio della riga abbiamo 
scritto un numero, questo verrà 1 considerato come inizio della riga del 
BASIC, e la riga verrà 1 immagazzinata come facente parte di un programma. 
Per inciso, questo numero, deve essere minore di 65536, altrimenti avremo un 
messaggio di SYNTAX ERROR; la. ragione di ciò' , e* che il numero di riga, e* 
immagazzinato in due locazioni successive di un Byte ciascuna, e perciò" 
potremo scrivere numeri compresi tra 0 e il massimo numero dì combinazioni 
possìbili tra ì due Bytes di che possono contenere un massimo di £55 numeri 
ciascuno* Perciò*: 255 * 255 = 65535 che e 1 il piu 1 alto numero di riga 
utilizzabile. 


Se, invece, non vi e* alcun numero all'inizio di una riga, avremo un 
comando diretto, che verrà 1 eseguito, non appena verrà* premuto il RETURN, 
Ovviamente, quanto scritto, non verrà" immagazinato in memoria, ma verrà" 
perso, se cancelleremo il video, senza aver prima premuto il RETURN, sulla 
riga che ci interessava, dopo aver aggiunto il numero al suo inìzio. 

In tutti e due i casi precedenti, il PET, una volta lette le parole in 
BASIC, sullo schermo, o -nella memoria, le deve tradurre in un linguaggio 
comprensibile al microprocessore, cioè 1 in linguaggio mcchina* 

Questo e' un linguaggio scritto in codice binarlo, dove esistono solo 
numeri, che pero" possono significare anche lettere a istruzioni, secondo un 
preciso codice che e* la lìngua del microprocesore 6502. 

Questa lingua, comunica al microprocessore dì eseguire tante piccole 
operazioni elementari, che messe tutte insieme, possono eseguire le stesse 
istruzioni, che noi diamo in BASIC., Ciò ! . significa che quando noi scriviamo, 
per esempio, PRINT, il PET lo riconosce, e va a cercare nella sua memoria 
non cancellabile (ROM)* le routines, precostituite, ohe interpretano il 
comando BASIC, traducendolo in tante piccole operazioni in linguaggio 
macchina* Questo procedimento, -viene ripetuto per ogni parola BASIC, che 
viene incontrata, fino ad aver eseguito tutto il programma o l'istruzióne. 

Ovviamente queste istruzioni in linguaggio macchina, essendo scritte su 
ROM, hanno bisogno di un'area dove possono immagazzinare le variabili e ì 
dati che il sistema operativo usa per eseguire tutte le sue funzioni: questo 
e" compito delle prime 1023 celle di memoria, che, ovviamente, non vengono 
mai coperte da programmi BASIC* 

Possiamo immaginare, quindi, dove il computer possa mettere la prima 
istruzione di BASIC: nella prima locazione di memoria libera, cioè' la T02M, 


In realta', nella 1024, c*e sempre uno 0, polche 7 questo significa, per il 
computer, che li* inizia il BASIC, Come abbiamo detto prima, ogni cella di 
memoria* può’ contenere solo dei numeri, e , poiché' le istruzioni del 
BASIC, sono un numero finito di parole chiave, i tecnici progettisti, hanno 
pensato ohe sì sarebbe potuto associare un numero ad ogni parola BASIC, in 
modo da costruire una tabella interna di codifica. 

Questo permette di usare un solo numero, per indicare una parola BASIC, 
che altrimenti dovrebbe occupare tante celle di memoria, quante sono le 
lettere ohe la compongono* 

Facciamo un esempio: se una istruzione contiene la parola PHINT, noi 
dovremmo memorizzarla come F,R*I*N,T, cioè' ogni lettera occuperebbe un 
Byte, c cella di memoria, cioè 1 un totale di 5 Bytes. Se invece ricorressimo 
ad una tabella di abbreviazioni, scriveremmo il numero corrispondente a 
PRlEJT, che e T 99, occupando una sola cella di memoria. 

Si comprende da questo esempio, come sì possano risparmiare enormi 
quantità' di memoria, usando dei numeri in codice per immagazzinare ì 
programmi in BASIC. 

Ora proviamo ad immaginare come si potrebbe fare a scrivere delle intere 
istruzioni, nella memoria. 


Prima di tutto, dobbiamo segnalare che ci troviamo, all*inizio di una 
istruzione* Questo lo facciamo, con un numero che certamente, non fa parte 
dellla tabella dei comandi BASIC: lo Zero* Questo viene posto come segnale 
di fine istruzione (inteso come termine di riga BASIC, in quanto si possono 
porre piu' istruzioni, sulla stessa riga, intervallate da dei " : " ) , o come 
segnale di inizio istruzione, che e' poi la stessa cosa* 

Riassumendo: ogni volta che incontriamo uno 0, neila memoria dedicata al 
BASIC, sappiamo che essa divìde due istruzioni* 

A questo punto, dobbiamo dire al computer, la lunghezza dell'istruzione, 
questo per facilitare il meccanismo di LIS.T* Questo viene fatto, indicando 
non tanto la lunghezza della istruzione, ma per maggior comodità*.* 
l’indirizzo (cioè* la posizione come numero di cella di memoria) in cui sì 
trova la successiva istruzione. 

Questa informazione, deve contenere un numero che può* anche essere di 
cinque cifre, e perciò* essere piu* grande di 255 (il numero massimo 
contenibile in un Byte): perciò 1 dovremo usare due Bytes per questo scopo* 
Ora, possiamo mettere il numero di linea, che, ovviamente* sara 1 in 
esadecimale* e occuperà" anch'esso due Bytes, 
precedentemente. 

Abbiamo perciò", descritto un * istruzione tipo, 
all’inizio, 1*indirizzo dì collegamento di due Bytes, 
di altrettanti Bytes. Seguirà 1 il testo, che finirà 1 
'l'ultima istruzione, o dato della riga, 

A questo punto, dobbiamo precisare alcune caratteristiche del testo BASIC: 
se noi scriviamo un testo tutto dì seguito, come potremo aggiungere le righe 
intermedie? Questo e* un duro compito, assolto mirabilmente dal sistema 
operativo, che, ogni volta che una istruzione viene inserita nel testo, 

sposta tutte le altre, per creare uno spazio, e aggiorna tutti gli indirizzi 
di collegamento, contenuti nel testo BASIC* 

Un’altra interessante caratteristica* e’ 11 lìmite dell’area BASIC. Essa, 
infatti, si ferma ad una locazione di memoria precisa, che e* contenuta 
nelle locazioni di pagina zero (quella delle variabili 
operativo), 52 e 53 (nelle vecchie ROM 134 e 135)* Quando il 
variabili, raggiungono questa locazione, un OUT QF MEMORY 
sullo schermo. 

La presenza di queste locazioni in pagina zero, e p molto utile, se 
vogliamo fermare il BASIC, affinché 11 non copra programmi in codice macchina, 
che risiedono nelle locazioni piu* alte della memoria* 


come abbiamo detto 

avendo essa lo zero 
e il numero di linea, 
con uno 0, dopo 


di sistema 
BASIC, o le 
ERRQR* appare 




Basterà 1 fare una POKE dell 1 indirizzo desiderato* nelle due locazioni 
suddette, per limitare il BASIC, fino al punto di memoria che ai desidera. 

A questo punto, potrà 1 essere interessante mettere in pratica le nozioni 
ora esposte, creando qualche programma di utility. Infatti, conoscendo ì 
valori corrispondenti ai varii comandi, e il modo in cui le istruzioni 
vengono immagazzinate, si possono creare dei programmi in BASIC, che 
modificano il testo stesso. 

Esistono già* dei programmi di rinumerazione righe, scritti in BASIC, ma 
noi vorremmo proporvi qualcosa di nuovo, che ha un valore piu' che altro 
esemplificativo, ma che potrebbe tornarvi utile in certi casi, magari con 
qualche adattamento o miglioramento. 

Si tratta di un paio di subroutines, che permettono a chi ha una 
stampante, di trasformare un programma che scrìve su schermo, in uno per 
stampante. La prima routine, infatti, trasforma, una volta richiamata, il 
programma principale-in modo che stampi su stampante, la seconda ritorna i:L 
tutto nella forma originale per lo schermo. 

Tutti gli statements di PRIWT, seguiti da due spazi! vuoti, diventano 
PRIWT^4, il comando per la stampa diretta. Sara* bene ricordare di scrivere 
i simboli di movimento cursore, in un PHIfJT subito precedente, non seguito 
da alcuno spazio vuoto, in modo che non venga tradotto su stampante come 
cambio carattere, o altro. 

Con la seconda routine tutto ritorna come prima, e si chiude il file con 
la stampante. 

Tutto questo e* ottenuto leggendo 1 valori delle locazioni di BASIC, e 
quando questi risultano uguali a quelli che vogliamo cambiare, vengono 
1f pokìcati 11 1 valori relativi alle nuove istruzioni. 

In riga 10000 e 11000 il valore 5000, si riferisce alla piu" alta 
locazione del testo BASIC in questione: potremo aumentarlo o diminuirlo a 
piacere, se vogliamo che la trasformazione riguardi solo una parte del 
programma. 

Questa e f solo una idea, ma pensiamo che basti per dare un'impressione di 
quante siano le possibilità' di divertirsi a modificando il BASIC a piacere 
...e .... buon divertimentoE. 


DB PRIMI ft FRINT#4 
10000 FQRI-1024TQ5000 

10010 IFFEEK <15=1 53flHQPEEK<I+i>=32THENÌ0030 

10520 NEMTI :0PEN4,4 eCMD4iRETURN 

10030 POKEI r i52 : POKEI +1 j.52 : POKEI +2 ..44 :NEXT 


DB PRINTE4 fi PRINT 
1Ì005 FORICI524TQ5000 

■11015 IFPEEK(I>=152fiH0PEFKCX+l>=52TH£HÌÌ030 
11025 NEXTX rCLOSE4 sRETURN 

11535 F*DKEI 153 :POKEI+l j-32 jPOKEI+2,-32 sMEXT 



nodi 



Basare 


di Riccardo Scotti 



L’idea di scrivere questo programmino mi e 1 venuta leggendo il libro di 
Johannes Mario Slmmel: u li codice Cesare"* 

Questo codice era molto diffuso tra i servisi segreti per la sua relativa 
semplicità 1 e grande affidabilita 1 . 

Infatti la codifica e la' decodifica può 1 essere eseguita senza l’ausilio 
di cifrari particolari o di tabelle tortuose* Ma l T uso di una penna ed un 
po' di carta può 1 essere il valido mezzo per risolvere gli enigmi, ciò' 
premesso se si conosce la frase chiave* 

Il metodo e 1 quello della sostituzione* 


Si prende una citazione come ad esempio: 


COMMODOREBUSINESSMACHINE 


Disponiamo sotto le lettere i numeri progressivi corrispondenti alle 
lettera dell 1 alfabeto * Sotto la A di MACHINE il numero 1, sotto la B di 
BUSINESS il numero 2 a e cosi' di seguito fino al termine della frase. Se 
ai incontrano delle lettere uguali si assegna, da sinistra verso destra, 
un numero progressivo* 

Al termine di questa operazione la frase scelta si presenterà 1 cosi': 


COMMODORE 
3 17 12 13 18 519 20 6 

Ora scriviamo 3 ctto i numeri 

CO MMODORE 
3 17 12 13 18 5 19 20 6 

MIGRIAMO R 


EU3INESSM 
2 2 4 21 10 15 7 22 23 14 

una frase da codificare: 

business^ 
2 24 21 10 15 7 22 23 14 

ICC A -fi D OSO 


A C H I N E 
1 4 9 11 16 B 


A C H I N E 
1 4 91116 8 

OTTI 


Arrivati a questo punto trascriviamo, per due 'volte di seguito^ tutto 
l’alfabeto internazionale: 


ABCDEFGHIJKLMNQFQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ 


Ora, trascuriamo la frase chiave ed occupiamoci solamente dei numeri* 

La prima lettera da codificare corrisponde alla lettera M sopra la 'quale 
troviamo il numero 3* 

Cerchiamo sui due alfabeti internazionali la lettera M e spostiamoci dì 3 



100 

120 

140 

160 

1S6 

200 

220 

240 

268 

280 

300 

320 

340 

360 

380 

400 

420 

440 

460 

48S 

500 

520 

540 

560 

580 

600 

620 

640 

660 

630 

700 

720 

740 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
C=i 

IiIMfì$c:S0),DC2000> 

FRINÌ".ASCRIVI LR PERSE CHIAVE^' 1 ’ 1 NEUTRA 

FDRI=lTOLEN<fW> 

p*a>=MiD$<R£, i>n 

HEttT r 

F0RI-65TO80 
EOE J-1TOLEH ( Fl$> 

IFB$-fl$a>THENFl*<J>=fi$ (J)+Sm(C) :C=C+1 
HEXT-J,I 
FRINT : FRINÌ 
FORI=1TOLEf-K ? 

FRINT" I } "1 : NEKT 

PRINT ■ PRIMI"'RIBESHVUQI CODIFICARE 0 DECODIFICARE 
GETttl ■IFX$<> N C”"E 1 r THEN56S 
IFW£= M D"THEM040 
PRINT 11 BMèFRHSE DA CODIFICARE]®" 

0FEN3/ 3j 3^ "@0 = CCES,S .U 11 

y^-ir N ; j| s ii » 

G£TY$ : 1 FY$= 11 " THEN660 
PRINTY*, 

Bf=B$+YJ 

IFLEN C Bf }^LEN C fi* MHEH730 
IFYf0"THEN730 


* 4 


* ,* 

* COBI CE CESARE * 

* BY * 

* RICCARDO SCOTTI * 

* ISCHIfi * 


***** m&M 



02/10 ?" 


760 GQTO660 
730 FRINT r FRINT 
800 FQRI=1TQLEN(B*> 

320 Ct=MID#CE$,I,1> 

840 lFCf-"0 N THEN980 
860 B(I > =RSC( C $> +VRLtMIBf C F\$< I > - 3) > 
880 IFDCI)>90THENDCI^=EKI)-26 
900 D$=D$+CHR*<Kn> 

920 PRINTCHRf < D < I > > 1 
940 NEXT 
960 PRIMI=PRIMT 
; 9S0 PRINT#3,B$;CHRfa3>; 

*1900 IFY$ s “0 Jl THENCLO3E2 : CLGSE3 : RUM 
1020 D$= ,J " ‘0010640 

1040 PRINr'jSWaFRfiSE Ufi DECEDI FI CRRES" 
1060 □PEN2.8-.2^"0:CCE3..S?R" 

1080 INPUTtt2j £$ 

1100 RS=ST:IFRS=64THÉNCL0SE2 r CL0SE3 
1120 F0RI=1T0LENCR$) 

1140 

1160 1FC$= ,,M THENENB 

1180 Ba>=FSC<C^>“VfìL<MID^<fi^CI).3>) 

1200 IFDUX65THEMB<I> s D<I>+26 

1220 PRINTCHR$<D<I)>J 

1248 myj 

1268 GOTO1080 



& 








posti verso destra* 

La lettera P sara 1 la prima lettera codificata. 

Con questo sistema si procede fino alla fine della frase da "nascondere", 
e,. . otterremo : 

PZOUAFFIXKAXKGKKFQPXCT 

Puo f capitare, a volte, che il testo da codificare possa essere piu T 
lungo della frase chiave [ si proseguirà 1 semplicemente ricominciando' 
decapo ogni volta che terminano i numeri. 

Avrete senza dubbio notato che non vi sono spasi fra le singole parole. 
Questo fatto deve essere una regola tassativa, come pure quella che vieta 
l'uso dei numeri e caratteri diversi dall'alfabeto. 

Il sistema di decodifica risulta esser esattamente il medesimo, ma invece 
di contare le lettere sugli alfabeti internazionali procedendo da 
sinistra verso destra, in questo caso, si procede da destra verso 
sinistra, ed ecco riapparire la frase in chiaro! 



REMark. 
280 

300 

320-380 

380 

400-4 60 

820 

660-670 


800-940 

980 

1060 

1100 


1120-12Ó0 


Dimensionamento della frase chiave che non deve superare in 
ogni caso ì 79 caratteri. 

La frase chiave può' essere composta da qualunque parola, un 
nome o una citazione, purché' non contenga spazi o numeri o 
caratteri strani. 

Scompone la frase nelle singole lettere e le assegna ad un 
vettore. 

65...90 sono ì valori ASCII delle lettere dell * alfabeto 
internazionale. 

Partendo dalla prima lettera dell'alfabeto, cerca nella frase 
chiave la lettera corrispondente, e le assegna un valore 
numerico crescente. 

Apre un canale di scrittura su disco. 

Accetta, una lettera per volta, il testo da codificare e 
accumula nella variabile B$ fino al raggiungimento della 
lunghezza della frase chiave. Nel caso si termini anzitempo si 
dovra T battere il numero 0 . 

Questa e' la parte in cui avviene la codifica. 

Registra su disco la frase codificata. 

Apre il canale di lettura da disco. 

Alla variabile RS viene assegnato il valore dello "Status 11 . 
Quando RS assume il valore 64 che corrisponde alla situazione 
di fine file, il canale di lettura viene, giustamente, chiuso. 
In questa parte avviene la decodifica con il procedimento 
inverso di quello riportato nelle righe 800-940. 
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Chi possiede la stampante CBM 4022 deve necessariamente sostituire- le 
rishe 10 e 609 cori le seguenti' 

10 OF'ENS/ 4, S = PRINT#6,CHR$ OS> : € LG SE 6 
600 0PEN6 ^ 4 r . 6 : P RIN T#6 ^ CKFli < 32 > : CLOSES 

























































































































































































10 

20 

30 

40 

50 

60 

70 

90 

30 

100 

110 

120 

130 

146 

150 

163 

170 

180 

100 

290 

210 

220 

23Q 

240 

250 

260 

278 

230 

290 

300 

310 

320 

330 

340 

350 

360 

370 

330 

390 

400 

410 

428 

430 

440 

458 

4S0 

470 

430 

430 

500 

510 

520 

530 

540 

550 

560 

570 

530 

59S 

600 
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OPEF-^6,4,6 = PRI NT#6, CH RS (H): CL0SE6 
0PEH4j4 ; CMIÌ4 
BINR£{53> 

R$<0) = ,F 

fì$<i>="***■ ..-**,* .***■ P , P „* 
fl$C 2 )=“W.,,.***_* 

R$(3> = ' r ^.P 

fì£(4)="**.. -.. ,■.***•** 

fìt(5>= .. -, * ,,*****......._*■■ 

Rf(S)= JI *.*,.WN.-...*" 

R$(7}=»$. , . , , . , ****.........-.. , ..*" 

R$CS>="*.**..*.*..*. **.*.. 

RS( 9 >= M ¥.a .*. *. a...a., a .. „.*" 

Ff$C 10)="*,.***♦.* - «■ - n ..* 

R$C ... „ , , ,*******. ..* , .* 

Rsa2)= lj *.--*#- -.*.**_*... #p...-* 

R$<13)="**, ■, .**.._. *_**....„_* 

r$C 14> = w ***, „ . .##.*......***---* 

RSC1S)*"*-*- ..-.... T ...... . ,*****. ,. , *. 

ft$< 16)=“***, . . . ,**...,..******** ,,. 

R:£< Ì7> =i '**. *, . p . .*. m* t , .. * .*.********-* 

R$C ÌS)= JI *****__ . x ,****.*****.***. _ __ **. . .****. . ,* 

R$< 19)^"***,*. . .. **. ***.. .. ..*******-_***, ** 

R$<20)-"****** P .. **;**. x .*****__ .....*** 

m<2l )="******...****.. p*,........**. 

fl$C 22 ) = "****. p*p . ***, a a__ , . . . . n p . . . , . x . x . , x , X . *. 

R#C23)="****.*******__ .**.*__ *..*.*- 

fì$ (. 24)“"***#***.,#***. *. .***, .. * p .*.*- 

RSC25)- |É ******. ,****. *****.....* p * p ,, .. 


RSC26>= 1 '*****. . . ******** 
R${27>- J1 ******* ******** 

R#< 28 >- Jl *******. ..****, 

R£C29>="******,., ,*.***, 

m c 30 > “ " * *****_*** *, 

fìSC31 >=”******. - - . , 

mt32 >=”*****. p É **p p 
R£C33>="*****«..p****p p 
f\tC 34}="******.,.*****, 
m C35>="******.p..***** 

R$(36) 1" *** ****,»,******* 
R$C37>="********p ( . ****** 
Rì^3S)="*********.,,****** 
f\t <39) = N è**#*****,. 
R$C40;]= ir ******> **.. 
R$C41)" fT ******p*. . . 

R$C42) = ' r ******.*x - . 

R$< 43)= JJ *********** 


** 
.* 
,* 
- * 
.* 
.* 


*. 

*. 


* «• t » ■ P 4 


*, 

*, 

*, 


.***,,*. 
,****«XP 

.-**.p p p 


* 

* 

* 

* 

* 


* p ***, 


;.*. 

*. < > p. p p * >. *. 

. *.___ .*.**** 

B .*.. ,*__ *, ***** 

*, ,,.,, ***,* 
p*....***,,* 


.***** 

. ***„* 
,******, 
Il p * * * X * E 

..A***** 


P P . . . *********** . , p . É É p 

. ****. p x p . . 

. *P *** p p x > ■ ****, ri P I p . I , 

ri *p**p P p.***.p* _ 

p P***P p ***P , X**. .. 

,.******,_ ,**. 

3 , X****. p ******.. 

- apri ^ * -p ^ PaPÉPiMpap 

******, *P .. 

.******, ..* 


R$-:44)= n ***** - ******. - 

R$ C45) = "*****.. P ******. a *-***P *P a 
RJ(46)^"**************,p***,.*, 

RSC47) = "******:*. ************. ,* 

RS < 48 ) - " ***** *-*. ***************** aap’paj a. -- „ * 

R$<49) = "********P *************a **a p p n x a P a ..ripa** 

Rf < 50) = J1 ******************** ** ** 
r$C5i)="********* a mwmmmM,, .**,. — ,,**** 

^<52)-"**********, *******. + a . x a a p a . p p p .*.***.* p 

<5 3 ì = "*** * * * ********* ** *********** ******* *** ******************** 
FORI-0TD53• PR1 NTTmSC i0)fi*CI)=HEXT 
PRIMT#4 : CL03E4 

GPEN 6 , 4,6 :FRINT# 6 ,CHR*C 24 > : CLOSEfi 


.*******. a * 

S *******, a * 

a ***** a p a a * 

a****.* 

.******** „ * 

a*******, . * 

a ******. * . * 

* 

ri * -ri rii 1 I ' 

. a p a* 

_* 


***, 


.****. a a , a * 
,****, .,, 

X**_P* 

P**P p , p *a 
, ** 

P *P 
a * a 

a****. 












































































Flussi 

ffiLEllaioua 

Gloriano Rossi 


Sul numero scorso di POCKET PET abbiamo visto come il PET-CBM organizsa 

I file su disco, in particolare abbiano trattato dei flussi, ad 
organiszazione SÌELatlve* 

In questa seconda puntata vedremo come creare un flusso relative, come 
aggiornarlo e come modificarne i contenuti. 

Su un numero recente di una rivista inglese e r apparso un interessante 
programma studiato appositamente per poter eseguire una sofisticata 
gestione dei files relative* 

II listato riportato sulla rivista era pero' zeppo di errori e quindi 
il programma non girava assolutamente* 

Visto pero' che l'idea poteva essere estremamente valida, dopo una 
accurata analisi e molte correzioni ecco l'edizione italiana di FIXIT* 

Prima di passare ad una descrizione di massima del programma FIXIT, e 1 
bene spiegare nella giusta maniera cosa si intende dire con il termine 
"Programma di utilità 111 '. 

Un programma di utilità 1 e' composto da una serie di istruzioni che 
prevedono funzioni ed effetti ohe si adattano facilmente a molteplici 
usi e casi e che il loro uso viene sfruttato quale coadiuvante di 
attività 1 gestionali o dì specifiche applicazioni» 

Il FIXIT svolge eggregiamente la funzione di editing di un qualsiasi 
file organizzato in maniera relative e proprio per questa sua 
malneab'ìlita r che puo T essere tranquillamente annoverato fra 1 
programmi di utilità 1 di alta qualità 1 . 


Il programma FIXIT. 

Un qualsiasi fi?e organizzato in maniera relative può f essere 

consultato da FIXIT» 

FIXIT infatti e* parametrtzzato in maniera tale che e' possibile 

fornire di volta in volta sia il nome del file in oggetto che deve 
essere consultato che la caratteristica di lunghezza record in esso 
contenuto * 



Quando saranno forniti questi due parametri basilari, FIXIT esibisce 
una mascherina ohe comprende tante caselline quanti sono i bytes che 
compongono ogni singolo record. 

Per ragioni di dimensione di schermo, questa mascherina e 1 disegnata 
automaticamente fino ad un massimo di 90 caselline corrispondenti a 90 
caratteri del record, 

I files relative possono avere, pero 1 , records con lunghezza superiore 
ai 90 caratteri citati. Proprio per questa ragione FIXIT provvede ad 
evidenziare una sola parte di ogni record preso in esame. 

La parte di record visualizzata dovrà' essere definita dall'utente al 
momento successivo dell T imputazione dei primi due dati obbligatori* 

La possibilita T di definire la parte di record da visualizzare avviene 
solamente quando la lunghezza 'del record supera i 90 caratteri, in caso 
contrario FIXIT bypassera' questa faclllty in taluni casi necessaria, 
FIXIT, in questi casi, chiederà 1 da quale byte e per quanti bytes 
dovrà' visualizzare il record; la visualizzazione parziale in ogni caso 
non potrà 1 essere superiore ad 30 caratteri per volta. 

Un file organizzato in maniera relative preso in esame da FIXIT può' 
essere consultato in due modi: 

1) Accesso sequenziale del file* 

Dopo aver impostato il numero relativo del primo record da visualizzare 
e’ sufficente premere il tasto corrispondente alla freccia verso l'alto 
perche 1 sìa visibile il record immediatamente sucessivo* 

2) Accesso ad uno qualsiasi singolo record. 

Ogni qualvolta sia necessario visualizzare uno specifico record sara T 
necessario semplicemente premere il tasto corrispondente alla A 
commerciale {"chiocciolina 11 in gergo); FIXIT domanderà 1 allora quale 
sia il numero relativo del record richiesto* 

Ogni record sara 1 visualizzato con un carattere per ogni casella della 
maschera ed un picoolo segno grafico indica la casellina ove e' 
simulato il cursore; a questo punto un record, cosi 1 presentato, può' 
essere corretto o creato ”ex novo 11 * 

L'editing e* reso possibile digitando i caratteri necessari al 
componimento del record oppure muovendo il cursore con ì normali tasti 
di muovimento di schermo. 

Come avrete senzaltro intuito questi tasti sono: cursore a destra, 
cursore a sinistra, cursore su', cursore in giu', delete carattere, 
ìnsert carattere. 

Una delle particolarìta' interessanti di FIXIT e 1 quella di consentire 
la visualizzazione, la creazione e/o l f aggiornamento di ogni singolo 
record di un file relative. Il record viene preso in esame nella sua 
completezza, viene cioè 11 visualizzato per intero, campo per campo» 

Si sa infatti, cosi 1 ci insegna il manuale Commodore dei Floppy Disk, 
che ogni record di un file relative può' essere composto da vari campi 
divisi ciascuno dal carattere ASCII 13, In fase di lettura normale, 
cioè' con lo statment BASIC dì input, il sistema può' considerare 
solamente quella parte dì -record che va dall'inizio (definito o no) 
fino al primo carattere ASCII 13, 

La routine di input di FIXIT, invece, prevede l'ingresso del record 
utilizzando la funzione GET, ciò' ci permette di poter prendere in 
esame qualsiasi carattere ASCII del record ed intervenire in 
conseguenza. 



lee 

ii0 

120 

130 

140 

150 

130 

170 

lyQ 

190 

200 

£18 

226 

236 

240 

250 

£30 

270 

280 

290 

300 

310 

320 

330 

340 

350 

330 

370 

380 

330 

408 

41G 

4£0 

430 

440 

450 

460 

47S 

430 

49S 

500 

510 

320 

530 

540 

550 

560 

570 

580 

596 

600 

610 

620 

630 

640 

650 

660 


REM m 
REM * 
REM * 
REM ¥ 
REM ¥ 
REM * 
REM 
REM * 
REM * 
REM * 
REM * 
REM 
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REM 

2=1/254 

G*<0)=" 

G$a>=" 

G$<2>= n 

G$<3)=" 

GM$= ,J ai 

gb$=" a L 


a r 

ai 

al¬ 

ai 


f 


—i—r—5—r i ■]—i—i—i—i 
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J- 1 


J-J 


670 


fle$= ,i *r = ; sft= ji 33 

FORK=lT05'SP$=3P$+SPf ; ' AC:T=ftC$+fìC* NBiT 

C7$=LEFmHC$,7> : SP*=SPf ^LERT^SP*, 180 > 

pp*=" .- IJ ■ T.M*-OHE f ( 13 > 

GOSUB2510 

INPUT"7JIHPUT FRENANE 4 
I FA4= ,h F "THENRRI NT "IT ; ■ END 
IFR#0 ,r # J, THENMF:É=fi$ 

INPUT" MLU NGHEZZA BEL RECORD ;J . RL 

DOPENtl,<NF#3,L(RL>,H0 

IFRL>S0THEN340 

FE= 1 : LB-RL ' " Sf- rt 

GOSUB1770 

GQ3UÉ700 - INPUT"RECORD # * IVSftBI", Rf 

GOSUÉ760 : IFR£= ,F r j THENDCLQSE - GGTQ350 
REC-VRL^Rt? 

RECORD# 1 , CREC^GOSUB700 
GOSJJE2070 

PRINT"RECORD # "REC; 

GOSUE1300:R0KE158,6 
GETPf- IFfi$= s " ,, THEN500 
IF Hi = ” lt f| T HE N3 7 0 
I F A£-=CH kt ( 2 & > THEN10 4 0 
I FR£= ,r ir r THEM 1110 
,c >i" THEN 1130 
IFflT="r7" THEN 1270 
IFA£= JI M"THENI35S 
IFfi$="H"THENPRINTOS■C0TQ42B 
IFA$= : J f N THENREC-RECi-1 PR1 MIO* ' 5010460 
IFA$=CHR$ < 34>THENh*= 3f 0 11 : GOTO 14:38 
IFR$sCHRf< i41)THEN1700 
IFfì$=CHR$<13?THEMfl$= ,J1 *r : GG70143S 
IFR$="3 ,, THEN400 

IF A*="IT 1 THEN DOLOSE ‘ PR I NT 1 "IT, END 

GOTO143S 

REM 

rem 

REM ¥ CURSORE ALLA LINER H, "4 i 










£80 REM *******#*M**M^****#**#*^iti*^ 

£9S REM 

700 PRlHT fl ^ ri FiTj+LEFT$CSP#,38> a[ y jJ fìIj$: ' RETURN 
710 REM 

720 rem 

730 REM * TEST DS (DISK ERROR > * 


750 REM 

760 IFDSC20THENRETURN 
778 IFDS=50THENRETURN 
730 PRINT IJ S J] BS$ ■ DOLOSE : END 
790 REM 


Eoo rem *********mm 

310 REM * SET RftNGE PER ISPEZIONE * 


330 REM 

340 INFUTURINO BVTE DR VISUALIZZARE F ^RÌ 
350 IFR^= N JJ THEHDCLOSE GOTO350 
960 FD=VRL <f\$> 

370 I FRL-FB'CSl THENLE=RL ■ GOTO420 

330 INPUT 33 NR DI BVTES £h VISUALIZZARE "jfli 

690 : IFR>S8THENPRINT ,, RflNGE TROPPO GROSSO? J, |GGTÙSS0 

300 IFFE+ft>RLTHENLE=RL■GGTO420 

310 LE=FB+R-1■GQTO420 

320 REM 


INSERIMENTO 


* 


340 REM * 

350 REM 
960 REM 

970 B2T~LEFm" "fE2:f j LERKES^IO 
930 GOSUE13O0 : GOTO500 
930 REM 

[OMO rem mwwxwmwmmwwmmmmii 

10IS REM * TELETE * 

1020 rem 
1030 REM 

1040 E2£=MlD*CE2$.<2>+ ,[ rf 
t O 50 GOSU E130 0 ■' Gli TO 5 0 & 

1066 REM 

[070 REM *:fi^+*+*^^***#^^***^^*^ 
1030 REM * . CRSR SINISTRE * 

[090 REM 
LI00 REM 

1110 IF L EH < E1£)=0OREN=FDT HE N50 0- 
I“1 GOSUE1500 
OOTO508 
REM 
REM 

REM * CRSR DESTE 

REM 
REM 

IFLENv B2* > =0OF: SH>L FI HE N 5 0 0 
B=i GO&UB1590 


L120 
1100 
1140 
L150 
1160 
1170 
1180 
1130 
1200 


H 


1210 GOTO508 
1220 REM 
L2^i0 REM 
1240 REM 
1250 REM 
1260 REM 

1270 [Fi EN<BUK10ORBN<FE+i0THEN50S 


CRSR SU’’ 




1238 B=10-GGSLiB1500 
1250 GOTO50@ 

1300 REM 


132B REM * CRSR GIU' * 

1330 rem 

1340 REM 

1350 IFLENCE2fK100R£N>L£-l0TH£H500 
1360 E=18 : COSUE1590 
1370 GGTG5S0 
1330- REM 


1330 rem 

1400 REM # PRINT R$ È MOVE MRRKER * 


H10 rem 
1420 REM 

1430 PKlNT w M-m n fìf "M"; 'E2$=Fi$+MID$f E2$ 
144y GOTO1130 
1450 REM 

1460 REM ^#*#####He##Ne***#***‘**# 

1479 REM * JSR N CRSR SINISTRA * 

1430 rem 

1490 REM 

ISSO PRlMTG:f=EN=EH-B:GOSUB225Q 
1510 B2$=RlGHWÉi$,E>+É2f 
1520 Bl$=LEFT$(Bl$iLENCEliO-B) 

1530 RETURN 


1540 REM 
1-550 REM 


c. ' 


1560 REM * JSR K CRSR DESTRA ¥. 

1570 REM 


1580 REM 
1536 PRINTOf 

1600 BNf=RrGHTf <STft$<ÉN> ■ l > ■ 3FBHi=0 ,, 9’ 1 THEMPRINT r: lll rF 
161G BN=BN+£ ; GG3UB2250 
1623 B1$=B1 $+LE FI $ ■£ 22$ .< B > 

163G &2$=KIB£CS2*,1+E) 

1640 RETURN 
1650 REM 


1660 rem 

1670' REM * RIMPIAZZA RECORD ( EHTER} * 


REM 

REM 


1 700 PR I NTO-s : GOSUB23S0 
1710 REC-REC+1 : GUTO460 
172G REM 


1740 REM * PRINT GRIGLIA SU SCHERMO M 

1 75S rem 

1760 REM 

1770 FRI NT'UT 1 

17 60 F 0 RFO=8 FQ6 

1790 PRINTGfCIO NEKT 

1930 FGRK=I NT < FB/Ì0 > TOLB/10 

1810 Nf=RIGHT*<SrR$<K>,2:> 

1920 Gm~" I» \ i \ ì i i I I ì \ 

1330 PFINTGNf : PRINTGMf-NEUT 

1840 PRINT fE T'GB$ : RETURN 

iw5w REM 

1360 REM 

1870 REM * METTE E2* SU SCHERMO * 
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* 

* 


LEGGE RECORD 1NTU h IS 
LO DIVIDE IN BIS E B2$ 


* 

4 : 


REM 
REM 

BM=LEN<E1*>+1-C0SU3225S 
PRI NT fC jHII" -■ Ri=à 
FejRK=ITCLE“BN+1 
BV»=r1in$iCS5*pK, ì> 

PEINTEV$“M M ; P3=PS+l-Rl“Rl+£ 

■IFR1=3THENP£=0 
IFPS=10THEHFS=0 

- IFPS=OTHENPPINT PRIHT ■PR1HTC7*; 
HEKT 

GGSUB2250 
RETURN 
REM 
REM 
REM 
REM 
REM 
REM 

G0£UI:7S0'AÌ$= M JS 
FORK-ITORL. 

- GET#i, m- 

■IFE^=CHR^a3>THEHE^="^ lf 
■ 1F B£ =CHF: $ ^ 34 > T HEN££“ J 'S 1 [ 

Fi 1 1 £+B£ - 1F ST=S 4 T HENK =R L 

MFXT 

Bl£=" tr .R=LEN(Ri£> 

I FFp<RL - \ THENR1 f “fi i £+LEFT£ < SP£ .■ RL-rt > 
IFFB>1THENE1£=LEFT£ <fl1£,FB-1) 
ES^MlDÉCfil:* ,FET> 

RETURN 

REM 

rem * b ** m 4i * w- * m * * #* 

REM # FOSIEIijNE CURSORE IN £N E * 
REM W. PRINT ;3 ^ JJ SULLA GRIGLIA * 
rem **#**+■*^*** 

REM 

R=INT<BH/10+Z>:R=fl-INT<FB/!0+Z> : REM 
P£=INTCv BM/10-ft>*IS+Z) REM 

R=S+2^R: C=s7+2#PS 

PRINT"LEFT£ < RD£ ^PoLEFTf<fìC$■C>; 
PRIhET JJ -4n", 

RETURN 

REM 


RI GR 
COLONNA 


REM M LEGGI £1$ E £2$ NEL RECORD* 
REM ************4S**^**^*******« 
REM 

REC0RB#1, £REC> : G0SLlE7iSO : ET» 1 ' " 
Ri£=Bl£+B2£ 

FORBITOLE 

'A£=LEFT£<fìI£,Ì):fìÌ$=MID£(RÌ£ J £) 

■ I Fft£="1' s THEHA$-CHR£ ( 13 > 

: ’jfr^= " g « THENR£=CHR£ C 34 > 

NE NT 

PRIh!T#l,E£.i :G0SUE7E0 

RETURN 

REM 



2430 REFI $ ISTRUZIONI M 

2490 rem mmmmmmmmmwmmm*** 

25S0 REM 

25Ì0 P0KE5946S, i4:pRlNT"n if TflB<i2>LEFT$(PRJ>9)TniTRBa2)"r^ FItfiT *" 
2520 PRINTTMf'QUESTO E’’ UH EDITOR PER FILES RELATIVE. " 

2550 PRIHT”FILES CON PIU" DI 90 BVTES SARANNO VI-" 

2546 FRINT"SU ALIZZATI FEP SEZIONI DI £ 80 B¥TES"TM$ 

2550 PRIMI 11 IL BYTE IN ED IT E y MARKATO DA 
2500 FRINT"QUESTO MARKER E" DA MUOVERE NELLA 
2570 PRI NT "MASCHERA” TÌÌ$ 

2580 PRIMI"I COMANDI OPERATIVI SONO ; "TMI 
2590 PRINT ,r 0 - CAMBIO RECORD# 

2600 PRI NT" ir - PROSSIMO RECORD 

2610 PRINT" HOME - CAMBIO DEL BYTE DI RANCE 

2620 PRIMI" CLR - FINE ESECUZIONE 11 TM$ 

2650 PRINT" SHIFT RETURN - ENTRATA NODO EDIT 
2640 PRINT” # - CAMBIO FILE"TM$ 

2650 PRINT"IL RETURN E" EVIDENZIATO DAL CARATTER ^ 

2660 PRINT”E I DOPPI APICI DAL CARATTERE tì 

2670 PR INI 1 'ATTI UN TASTO PER CONTINUARE IH"; 

26SO POKEISSj. 6 : NAIT159j 1 
2690 P0KE158,0 L FRINÌ 11 - RETURN 


Per medito in conseguenza di questo fatto sullo schermo ayremo due 
casi di trasformazione di carattere. 

Quando FIXIT incontra un carattere ASCII 13 questo viene tradotto e 
visualizzato con un carattere grafico univoco; il medesimo criterio di 
trasformazione viene eseguito anche per il carattere corrispondente ai 
doppi apici; questo carattere viene visualizzato con la 11 chiocciolina" 
(A commerciale). 

FIXIT oltre che consultare e modificare il contenuto può 1 anche creare 
un file ad organizzazione relative. 

Un file relative creato "ex novo ir permette di definire sia il nome del 
file stesso che il dimensionamento del record. 

E 1 chiaro che la creazione di un record con piu* di 90 caratteri 
comporta due o piu" mascherate. 

La dimensione del file e 1 definita automaticamente nel momento in cui 
si inserisce l'ultimo r'ecord (introduzione sequenziale) oppure quando 
ci si posiziona, come prima operazione, sul numero di record che si 
reputa di raggiungere. 

Vediamo dì fare un esempio pratico per spiegare questi due concetti: 
Dobbiamo creare un file relative dì 100 record con 50 caratteri 
ciascuno. La prima domanda di FIXIT e 1 relativa al nome del file; se 
battiamo ad esempio "PROVA 11 e poi alla domanda inerente alla lunghezza 
record si bàtterà' 50, FIXIT andra T ad esaminare il drive 0 e 
controllerà' Insistenza del file. Se FIXIT non trova corrispondenza 
nella directory il led rosso di errore si accende, ma il programma 
prosegue regolarmente; questa e T una condizione prevista per la 
creazione di un file. 

Nel caso in cui il file "FROVA" esistesse già 1, precedentemente FIXIT 
andra' ad esaminare, al primo acceso ad un record, le caratteristiche 
di lunghezza del record stesso e se trovasse una discordanza ciò' 
provocherebbe una condizione di errore effettivo (70,NO CHANNEL,00,00); 
avremo tentato di eseguire un edit su un file mal dichiarato. 



Torniamo ora alla creazione di file ed alla domanda inerente al numero 
relativo di record scrìveremo il numero 100 e quindi batteremo il tasto 
lìETTURW contemporaneamente al tasto SHIFT* 

Cosi 1 facendo l'unita 1 disco girerà 1 e quindi verrai visualizzato 
l'ipotetico record 10-1^ a quésto punto dopo aver premuto il tasto 
11 chiocciolina" potremo, in seguito posizionarci su qualsiasi record 
desiderato. Se invece premiamo il tasto CLR usciremo dal FISI! ed 
avremo creato un file relative sii nome Tf PR0VA" completamente vuoto 
composto da 100 records da 50. caratteri ciascuno* 

Similarmente* si può' procedere per 1 r ampliamento di un file* Si 
.procede puntando sul record nnn che corrisponderà T all'ultimo nuovo 
record. 

Questa nuova facilìty non distrugge i precedenti records già' 
introdotti in precedenza, ma allarga il numero di record disponibili 
nel file. 

Arrivati a questo punto penso che meglio delle mie parole possa la 
pratica. Quindi digitate il FI KIT ed eseguite le opportune prove. 

Per finire, quale appuntamento ed anticipazione, diro' che la prossima 
puntata tratterò 1 il tema della tecnica di randonoissasione* 


SPIGOLATURE 


10 REM ***************************** 

20 REM *** FRLLINfi ROMEO *** 

O0 REM ****************************** 

40 

100 PRIMI "."MS' 1 

110 fl=INT<RNIKÌ >*15> ’B=1NTCRND<1)#15) -FRINÌ"!! " j 

120 F0RK= 1TOR-RRINT"I! tf«";-HEXT 

136 F0RK= 1JOB : FRINÌ 11 H Ulto 11 ; : NEXT 

140 FÙRK=i TORERI NT "Il T» ita"; HZXT 

150 FGRK=1TGB-PRINT"II rii"; 'NEXT 

150 GOTO110 


i o rem*** ** ******** *************** 

20 REM*** FRLLINfi fi ORSO *** 

30 R E M**** ******* ******* ** ******** 

40 

100 PRlNT'MMM” 

110 K^INTCRNBC1>*0> : IFX=VTHEN118 
120 fi=INT(RNB<Ì>*15) : B-INT<RNIK1>*15> : PRINT ,, Ii "J 
138 GN X GQSUB 140,150,Ì50,160,150,170,170=Y=H=G0TÙ110 
140 F0RK=1T0R:PRIMT"H 1»";=G03UB 190-NEKT-RETURN 
150 FQRK=1T0B : PRINT"|I ^GOSUE 190’NEftT-RETURN 

100 FQRK= 1T0R SPRINT 11 II :GG3UB 190 : NEftT : RETURN 

17@ FQRK=1T0B : PR1NT M II n* M ;-G0SUB 190 : NEXT ; RETURN 
138 GOTO120 

198 N=i0iFGRH1TON : NE^T: RETURN 
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Harden non vende solo computers. 
Vende soluzioni per i tuoi problemi, 

•k 

L'avvocato, il medico, l'industriale, l'artigiano e il negoziante. 

Tutti oggi et troviamo spesso di fronte ad una serie di esigenze fiscali, legali, 
contabili e amministrative, senza contare quelle organizzative e pratiche, che ci 
portano via sempre più tempo in fastidiosi lavori di routine. 

Fortunatamente oggi c'è Harden, 

Harden non si limita a consigliare e a vendere il computer più adatto e più 
conveniente in rapporto a ciascuna esigenza, sia come dimensione che come marca 
(è esclusivista per l'Italia della Commodore, della Computorp e OEM Data General) 
ma provvede anche all'addestramento di chi dovrà usare la macchina, alla 
manutenzione e all'assistenza tecnica, nonché a qualsiasi esigenza di software, sia 
con migliaia di programmi già sperimentati e collaudati sia preparando programmi 
specifici su misura, 

Venite di persona, scriveteci: ci sono più di 
400 punti di vendita e assistenza Harden, in Italia. 
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